home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1998-05-21 | 47.0 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 100%
| file
| Emacs/XEmacs v20 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 73 74 65 76 65 40 61 |piled by| steve@a|
|00000020| 6c 74 61 69 72 2e 78 65 | 6d 61 63 73 2e 6f 72 67 |ltair.xe|macs.org|
|00000030| 20 6f 6e 20 54 68 75 20 | 4e 6f 76 20 32 30 20 31 | on Thu |Nov 20 1|
|00000040| 37 3a 35 35 3a 35 30 20 | 31 39 39 37 0a 3b 3b 3b |7:55:50 |1997.;;;|
|00000050| 20 66 72 6f 6d 20 66 69 | 6c 65 20 2f 68 6f 6d 65 | from fi|le /home|
|00000060| 2f 78 65 6d 61 63 73 2f | 32 30 2e 33 2f 78 65 6d |/xemacs/|20.3/xem|
|00000070| 61 63 73 2d 32 30 2e 33 | 2f 6c 69 73 70 2f 6d 75 |acs-20.3|/lisp/mu|
|00000080| 6c 65 2f 6d 75 6c 65 2d | 74 72 65 78 2e 65 6c 0a |le/mule-|trex.el.|
|00000090| 3b 3b 3b 20 65 6d 61 63 | 73 20 76 65 72 73 69 6f |;;; emac|s versio|
|000000a0| 6e 20 32 30 2e 33 20 22 | 56 61 74 69 63 61 6e 20 |n 20.3 "|Vatican |
|000000b0| 43 69 74 79 22 20 58 45 | 6d 61 63 73 20 20 4c 75 |City" XE|macs Lu|
|000000c0| 63 69 64 2e 0a 3b 3b 3b | 20 62 79 74 65 63 6f 6d |cid..;;;| bytecom|
|000000d0| 70 20 76 65 72 73 69 6f | 6e 20 32 2e 32 35 20 58 |p versio|n 2.25 X|
|000000e0| 45 6d 61 63 73 3b 20 32 | 32 2d 4d 61 72 2d 39 36 |Emacs; 2|2-Mar-96|
|000000f0| 2e 0a 3b 3b 3b 20 6f 70 | 74 69 6d 69 7a 61 74 69 |..;;; op|timizati|
|00000100| 6f 6e 20 69 73 20 6f 6e | 2e 0a 3b 3b 3b 20 74 68 |on is on|..;;; th|
|00000110| 69 73 20 66 69 6c 65 20 | 75 73 65 73 20 6f 70 63 |is file |uses opc|
|00000120| 6f 64 65 73 20 77 68 69 | 63 68 20 64 6f 20 6e 6f |odes whi|ch do no|
|00000130| 74 20 65 78 69 73 74 20 | 69 6e 20 45 6d 61 63 73 |t exist |in Emacs|
|00000140| 20 31 39 2e 0a 0a 28 69 | 66 20 28 61 6e 64 20 28 | 19...(i|f (and (|
|00000150| 62 6f 75 6e 64 70 20 27 | 65 6d 61 63 73 2d 76 65 |boundp '|emacs-ve|
|00000160| 72 73 69 6f 6e 29 0a 09 | 20 28 6f 72 20 28 61 6e |rsion)..| (or (an|
|00000170| 64 20 28 62 6f 75 6e 64 | 70 20 27 65 70 6f 63 68 |d (bound|p 'epoch|
|00000180| 3a 3a 76 65 72 73 69 6f | 6e 29 20 65 70 6f 63 68 |::versio|n) epoch|
|00000190| 3a 3a 76 65 72 73 69 6f | 6e 29 0a 09 20 20 20 20 |::versio|n).. |
|000001a0| 20 28 73 74 72 69 6e 67 | 2d 6c 65 73 73 70 20 65 | (string|-lessp e|
|000001b0| 6d 61 63 73 2d 76 65 72 | 73 69 6f 6e 20 22 32 30 |macs-ver|sion "20|
|000001c0| 22 29 29 29 0a 20 20 20 | 20 28 65 72 72 6f 72 20 |"))). | (error |
|000001d0| 22 60 6d 75 6c 65 2d 74 | 72 65 78 2e 65 6c 27 20 |"`mule-t|rex.el' |
|000001e0| 77 61 73 20 63 6f 6d 70 | 69 6c 65 64 20 66 6f 72 |was comp|iled for|
|000001f0| 20 45 6d 61 63 73 20 32 | 30 22 29 29 0a 0a 28 6f | Emacs 2|0"))..(o|
|00000200| 72 20 28 62 6f 75 6e 64 | 70 20 27 63 75 72 72 65 |r (bound|p 'curre|
|00000210| 6e 74 2d 6c 6f 61 64 2d | 6c 69 73 74 29 20 28 73 |nt-load-|list) (s|
|00000220| 65 74 71 20 63 75 72 72 | 65 6e 74 2d 6c 6f 61 64 |etq curr|ent-load|
|00000230| 2d 6c 69 73 74 20 6e 69 | 6c 29 29 0a 0a 28 72 65 |-list ni|l))..(re|
|00000240| 71 75 69 72 65 20 27 6d | 75 6c 65 29 0a 3b 3b 3b |quire 'm|ule).;;;|
|00000250| 23 23 23 63 6f 64 69 6e | 67 20 73 79 73 74 65 6d |###codin|g system|
|00000260| 3a 20 65 73 63 61 70 65 | 2d 71 75 6f 74 65 64 0a |: escape|-quoted.|
|00000270| 0a 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 21 |.(byte-c|ode "..!|
|00000280| ac 82 c2 11 c1 0b 42 13 | c0 87 22 20 5b 62 6f 75 |......B.|.." [bou|
|00000290| 6e 64 70 20 54 52 45 58 | 2d 76 65 72 73 69 6f 6e |ndp TREX|-version|
|000002a0| 20 22 30 2e 34 31 22 20 | 63 75 72 72 65 6e 74 2d | "0.41" |current-|
|000002b0| 6c 6f 61 64 2d 6c 69 73 | 74 5d 20 32 29 0a 28 64 |load-lis|t] 2).(d|
|000002c0| 65 66 61 6c 69 61 73 20 | 27 54 52 45 58 2d 69 6e |efalias |'TREX-in|
|000002d0| 63 20 27 28 6d 61 63 72 | 6f 20 2e 20 23 5b 28 73 |c '(macr|o . #[(s|
|000002e0| 79 6d 62 6f 6c 20 26 6f | 70 74 69 6f 6e 61 6c 20 |ymbol &o|ptional |
|000002f0| 64 65 6c 74 61 29 20 22 | c0 09 5c 6e ab 86 c3 09 |delta) "|..\n....|
|00000300| 5c 6e 45 aa 83 c4 09 44 | 45 87 22 20 5b 73 65 74 |\nE....D|E." [set|
|00000310| 71 20 73 79 6d 62 6f 6c | 20 64 65 6c 74 61 20 2b |q symbol| delta +|
|00000320| 20 31 2b 5d 20 35 5d 29 | 29 0a 28 64 65 66 61 6c | 1+] 5])|).(defal|
|00000330| 69 61 73 20 27 54 52 45 | 58 2d 64 65 63 20 27 28 |ias 'TRE|X-dec '(|
|00000340| 6d 61 63 72 6f 20 2e 20 | 23 5b 28 73 79 6d 62 6f |macro . |#[(symbo|
|00000350| 6c 20 26 6f 70 74 69 6f | 6e 61 6c 20 64 65 6c 74 |l &optio|nal delt|
|00000360| 61 29 20 22 c0 09 5c 6e | ab 86 c3 09 5c 6e 45 aa |a) "..\n|....\nE.|
|00000370| 83 c4 09 44 45 87 22 20 | 5b 73 65 74 71 20 73 79 |...DE." |[setq sy|
|00000380| 6d 62 6f 6c 20 64 65 6c | 74 61 20 2d 20 31 2d 5d |mbol del|ta - 1-]|
|00000390| 20 35 5d 29 29 0a 28 64 | 65 66 61 6c 69 61 73 20 | 5])).(d|efalias |
|000003a0| 27 6e 75 6d 20 27 28 6d | 61 63 72 6f 20 2e 20 23 |'num '(m|acro . #|
|000003b0| 5b 28 73 79 6d 29 20 22 | c0 c1 5c 6e 44 44 87 22 |[(sym) "|..\nDD."|
|000003c0| 20 5b 6e 75 6d 2a 20 71 | 75 6f 74 65 20 73 79 6d | [num* q|uote sym|
|000003d0| 5d 20 33 5d 29 29 0a 28 | 64 65 66 61 6c 69 61 73 |] 3])).(|defalias|
|000003e0| 20 27 6e 75 6d 2a 20 23 | 5b 28 73 79 6d 29 20 22 | 'num* #|[(sym) "|
|000003f0| c0 c1 5c 6e 21 c3 c4 4f | 21 87 22 20 5b 54 52 45 |..\n!..O|!." [TRE|
|00000400| 58 2d 72 65 61 64 2d 68 | 65 78 61 20 73 79 6d 62 |X-read-h|exa symb|
|00000410| 6f 6c 2d 6e 61 6d 65 20 | 73 79 6d 20 32 20 6e 69 |ol-name |sym 2 ni|
|00000420| 6c 5d 20 34 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |l] 4]).(|defalias|
|00000430| 20 27 54 52 45 58 2d 72 | 65 61 64 2d 68 65 78 61 | 'TREX-r|ead-hexa|
|00000440| 20 23 5b 28 73 74 72 29 | 20 22 c0 89 09 47 1a 1b | #[(str)| "...G..|
|00000450| 1b 1c 0b 5c 6e 57 ab c8 | 09 0b 48 1d c6 0d 58 ab |...\nW..|..H...X.|
|00000460| 8f 0d c7 58 ab 8a 0c c8 | 5f 0d c6 5a 5c 5c 14 aa |...X....|_..Z\\..|
|00000470| aa c9 0d 58 ab 91 0d ca | 58 ab 8c 0c c8 5f 0d c9 |...X....|X...._..|
|00000480| 5a cb 5c 5c 5c 5c 14 aa | 94 cc 0d 58 ab 8f 0d cd |Z.\\\\..|...X....|
|00000490| 58 ab 8a 0c c8 5f 0d cc | 5a cb 5c 5c 5c 5c 14 0b |X...._..|Z.\\\\..|
|000004a0| 54 13 29 aa 33 0c 2b 87 | 22 20 5b 30 20 73 74 72 |T.).3.+.|" [0 str|
|000004b0| 20 6d 61 78 20 69 20 72 | 65 73 75 6c 74 20 63 68 | max i r|esult ch|
|000004c0| 20 3f 30 20 3f 39 20 31 | 36 20 3f 61 20 3f 66 20 | ?0 ?9 1|6 ?a ?f |
|000004d0| 31 30 20 3f 41 20 3f 46 | 5d 20 33 5d 29 0a 28 64 |10 ?A ?F|] 3]).(d|
|000004e0| 65 66 61 6c 69 61 73 20 | 27 54 52 45 58 2d 63 68 |efalias |'TREX-ch|
|000004f0| 61 72 2d 6f 63 74 65 74 | 73 20 23 5b 28 73 74 72 |ar-octet|s #[(str|
|00000500| 20 69 6e 64 65 78 29 20 | 22 08 47 19 5c 6e c3 57 | index) |".G.\n.W|
|00000510| ac 85 09 5c 6e 58 ab 84 | c3 82 b9 00 08 5c 6e 48 |...\nX..|.....\nH|
|00000520| c4 1d 89 1e 06 c7 c8 21 | 58 ab 84 c9 82 ac 00 1b |.......!|X.......|
|00000530| 0e 06 c7 ca 21 55 ab df | 08 47 5c 6e 1e 0b 19 1b |....!U..|.G\n....|
|00000540| 0e 0b 09 57 ab cc c7 cc | 21 08 1b 0e 0b 48 58 ab |...W....|!....HX.|
|00000550| c2 08 1b 0e 0b 48 c7 cd | 21 58 ab b8 08 1b 0e 0b |.....H..|!X......|
|00000560| 48 89 16 06 c7 ce 21 58 | ab 89 1b 0e 0b cf 5c 5c |H.....!X|......\\|
|00000570| 89 16 0b aa 52 1b 0e 06 | c7 d0 21 58 ab 89 1b 0e |....R...|..!X....|
|00000580| 0b d1 5c 5c 89 16 0b aa | 41 1b 0e 06 c7 cd 21 58 |..\\....|A.....!X|
|00000590| ab 37 1b 0e 0b d2 5c 5c | 89 16 0b aa 30 1b 0e 0b |.7....\\|....0...|
|000005a0| 5c 6e 5a 2a aa a2 1b 0e | 06 c7 d3 21 58 ab 83 cf |\nZ*....|...!X...|
|000005b0| aa 97 1b 0e 06 c7 d4 21 | 58 ab 83 d1 aa 8c 1b 0e |.......!|X.......|
|000005c0| 06 c7 d5 21 58 ab 83 d2 | aa 81 c9 15 5c 6e 0d 5c |...!X...|....\n.\|
|000005d0| 5c 09 58 ab 83 0d aa 81 | c9 2a 29 87 22 20 5b 73 |\.X.....|.*)." [s|
|000005e0| 74 72 20 6d 61 78 20 69 | 6e 64 65 78 20 30 20 6e |tr max i|ndex 0 n|
|000005f0| 69 6c 20 62 79 74 65 73 | 20 63 68 20 6e 75 6d 2a |il bytes| ch num*|
|00000600| 20 30 78 37 66 20 31 20 | 30 78 38 30 20 69 20 30 | 0x7f 1 |0x80 i 0|
|00000610| 78 61 30 20 30 78 62 65 | 20 30 78 61 66 20 32 20 |xa0 0xbe| 0xaf 2 |
|00000620| 30 78 62 62 20 33 20 34 | 20 30 78 38 66 20 30 78 |0xbb 3 4| 0x8f 0x|
|00000630| 39 62 20 30 78 39 65 5d | 20 34 5d 29 0a 28 64 65 |9b 0x9e]| 4]).(de|
|00000640| 66 61 6c 69 61 73 20 27 | 54 52 45 58 2d 63 6f 6d |falias '|TREX-com|
|00000650| 70 2d 63 68 61 72 70 20 | 23 5b 28 73 74 72 20 69 |p-charp |#[(str i|
|00000660| 6e 64 65 78 29 20 22 08 | 09 48 c2 c3 21 55 87 22 |ndex) ".|.H..!U."|
|00000670| 20 5b 73 74 72 20 69 6e | 64 65 78 20 6e 75 6d 2a | [str in|dex num*|
|00000680| 20 30 78 38 30 5d 20 33 | 5d 29 0a 28 64 65 66 61 | 0x80] 3|]).(defa|
|00000690| 6c 69 61 73 20 27 72 65 | 67 65 78 70 2d 6d 61 6b |lias 're|gexp-mak|
|000006a0| 65 2d 6f 72 20 23 5b 28 | 26 72 65 73 74 20 62 6f |e-or #[(|&rest bo|
|000006b0| 64 79 29 20 22 c0 09 42 | 87 22 20 5b 3a 6f 72 20 |dy) "..B|." [:or |
|000006c0| 62 6f 64 79 5d 20 32 5d | 29 0a 28 64 65 66 61 6c |body] 2]|).(defal|
|000006d0| 69 61 73 20 27 72 65 67 | 65 78 70 2d 6d 61 6b 65 |ias 'reg|exp-make|
|000006e0| 2d 73 65 71 20 23 5b 28 | 26 72 65 73 74 20 62 6f |-seq #[(|&rest bo|
|000006f0| 64 79 29 20 22 c0 09 42 | 87 22 20 5b 3a 73 65 71 |dy) "..B|." [:seq|
|00000700| 20 62 6f 64 79 5d 20 32 | 5d 29 0a 28 64 65 66 61 | body] 2|]).(defa|
|00000710| 6c 69 61 73 20 27 72 65 | 67 65 78 70 2d 6d 61 6b |lias 're|gexp-mak|
|00000720| 65 2d 73 74 61 72 20 23 | 5b 28 72 65 67 65 78 70 |e-star #|[(regexp|
|00000730| 29 20 22 c0 09 44 87 22 | 20 5b 3a 73 74 61 72 20 |) "..D."| [:star |
|00000740| 72 65 67 65 78 70 5d 20 | 32 5d 29 0a 28 64 65 66 |regexp] |2]).(def|
|00000750| 61 6c 69 61 73 20 27 72 | 65 67 65 78 70 2d 6d 61 |alias 'r|egexp-ma|
|00000760| 6b 65 2d 72 61 6e 67 65 | 20 23 5b 28 66 72 6f 6d |ke-range| #[(from|
|00000770| 20 74 6f 29 20 22 c0 c1 | 5c 6e 0b 45 44 87 22 20 | to) "..|\n.ED." |
|00000780| 5b 43 48 41 52 53 45 54 | 20 3a 72 61 6e 67 65 20 |[CHARSET| :range |
|00000790| 66 72 6f 6d 20 74 6f 5d | 20 34 5d 29 0a 28 62 79 |from to]| 4]).(by|
|000007a0| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 21 84 81 01 c2 |te-code |"..!....|
|000007b0| c3 c4 c5 c6 21 5c 22 c7 | c5 c8 21 c9 c2 c7 c5 ca |....!\".|..!.....|
|000007c0| 21 c3 c5 ca 21 c5 cb 21 | 5c 22 5c 22 c7 c3 c5 cc |!...!..!|\"\"....|
|000007d0| 21 c5 cd 21 5c 22 c3 c5 | ca 21 c5 cb 21 5c 22 5c |!..!\"..|.!..!\"\|
|000007e0| 22 c7 c3 c5 ce 21 c5 cf | 21 5c 22 c3 c5 ca 21 c5 |"....!..|!\"...!.|
|000007f0| cb 21 5c 22 c3 c5 ca 21 | c5 cb 21 5c 22 23 c7 c5 |.!\"...!|..!\"#..|
|00000800| d0 21 c3 c5 ca 21 c5 d1 | 21 5c 22 c3 c5 ca 21 c5 |.!...!..|!\"...!.|
|00000810| cb 21 5c 22 23 c7 c5 d2 | 21 c3 c5 d3 21 c5 d4 21 |.!\"#...|!...!..!|
|00000820| 5c 22 c3 c5 ca 21 c5 cb | 21 5c 22 23 c7 c5 d5 21 |\"...!..|!\"#...!|
|00000830| c3 c5 d6 21 c5 d7 21 5c | 22 c3 c5 ca 21 c5 cb 21 |...!..!\|"...!..!|
|00000840| 5c 22 c3 c5 ca 21 c5 cb | 21 5c 22 24 c7 c5 d8 21 |\"...!..|!\"$...!|
|00000850| c3 c5 d9 21 c5 da 21 5c | 22 c3 c5 ca 21 c5 cb 21 |...!..!\|"...!..!|
|00000860| 5c 22 c3 c5 ca 21 c5 cb | 21 5c 22 24 c7 c5 db 21 |\"...!..|!\"$...!|
|00000870| c3 c5 ca 21 c5 d4 21 5c | 22 c3 c5 ca 21 c5 cb 21 |...!..!\|"...!..!|
|00000880| 5c 22 c3 c5 ca 21 c5 cb | 21 5c 22 24 26 08 21 5c |\"...!..|!\"$&.!\|
|00000890| 22 c7 c3 c5 dc 21 c5 dd | 21 5c 22 c3 c5 ca 21 c5 |"....!..|!\"...!.|
|000008a0| cb 21 5c 22 5c 22 c7 c3 | c5 de 21 c5 df 21 5c 22 |.!\"\"..|..!..!\"|
|000008b0| c3 c5 ca 21 c5 cb 21 5c | 22 c3 c5 ca 21 c5 cb 21 |...!..!\|"...!..!|
|000008c0| 5c 22 23 c7 c5 e0 21 c3 | c5 ca 21 c5 d1 21 5c 22 |\"#...!.|..!..!\"|
|000008d0| c3 c5 ca 21 c5 cb 21 5c | 22 23 c7 c5 e1 21 c3 c5 |...!..!\|"#...!..|
|000008e0| d3 21 c5 d4 21 5c 22 c3 | c5 ca 21 c5 cb 21 5c 22 |.!..!\".|..!..!\"|
|000008f0| 23 c7 c5 e2 21 c3 c5 d6 | 21 c5 d7 21 5c 22 c3 c5 |#...!...|!..!\"..|
|00000900| ca 21 c5 cb 21 5c 22 c3 | c5 ca 21 c5 cb 21 5c 22 |.!..!\".|..!..!\"|
|00000910| 24 c7 c5 e3 21 c3 c5 d9 | 21 c5 da 21 5c 22 c3 c5 |$...!...|!..!\"..|
|00000920| ca 21 c5 cb 21 5c 22 c3 | c5 ca 21 c5 cb 21 5c 22 |.!..!\".|..!..!\"|
|00000930| 24 c7 c5 e4 21 c3 c5 ca | 21 c5 d4 21 5c 22 c3 c5 |$...!...|!..!\"..|
|00000940| ca 21 c5 cb 21 5c 22 c3 | c5 ca 21 c5 cb 21 5c 22 |.!..!\".|..!..!\"|
|00000950| 24 26 09 11 c1 1b 0e 25 | 42 16 25 c0 87 22 20 5b |$&.....%|B.%.." [|
|00000960| 62 6f 75 6e 64 70 20 72 | 65 67 65 78 70 2d 61 6c |boundp r|egexp-al|
|00000970| 6c 63 68 61 72 2d 72 65 | 67 65 78 70 20 72 65 67 |lchar-re|gexp reg|
|00000980| 65 78 70 2d 6d 61 6b 65 | 2d 6f 72 20 72 65 67 65 |exp-make|-or rege|
|00000990| 78 70 2d 6d 61 6b 65 2d | 72 61 6e 67 65 20 30 20 |xp-make-|range 0 |
|000009a0| 6e 75 6d 2a 20 30 78 37 | 66 20 72 65 67 65 78 70 |num* 0x7|f regexp|
|000009b0| 2d 6d 61 6b 65 2d 73 65 | 71 20 30 78 38 30 20 72 |-make-se|q 0x80 r|
|000009c0| 65 67 65 78 70 2d 6d 61 | 6b 65 2d 73 74 61 72 20 |egexp-ma|ke-star |
|000009d0| 30 78 61 30 20 30 78 66 | 66 20 30 78 61 31 20 30 |0xa0 0xf|f 0xa1 0|
|000009e0| 78 61 66 20 30 78 62 30 | 20 30 78 62 39 20 30 78 |xaf 0xb0| 0xb9 0x|
|000009f0| 62 61 20 30 78 62 37 20 | 30 78 62 62 20 30 78 62 |ba 0xb7 |0xbb 0xb|
|00000a00| 38 20 30 78 62 66 20 30 | 78 62 63 20 30 78 63 30 |8 0xbf 0|xbc 0xc0|
|00000a10| 20 30 78 63 37 20 30 78 | 62 64 20 30 78 63 38 20 | 0xc7 0x|bd 0xc8 |
|00000a20| 30 78 64 66 20 30 78 62 | 65 20 30 78 38 31 20 30 |0xdf 0xb|e 0x81 0|
|00000a30| 78 38 66 20 30 78 39 30 | 20 30 78 39 39 20 30 78 |x8f 0x90| 0x99 0x|
|00000a40| 39 61 20 30 78 39 62 20 | 30 78 39 63 20 30 78 39 |9a 0x9b |0x9c 0x9|
|00000a50| 64 20 30 78 39 65 20 63 | 75 72 72 65 6e 74 2d 6c |d 0x9e c|urrent-l|
|00000a60| 6f 61 64 2d 6c 69 73 74 | 5d 20 32 31 29 0a 28 64 |oad-list|] 21).(d|
|00000a70| 65 66 61 6c 69 61 73 20 | 27 54 52 45 58 2d 73 74 |efalias |'TREX-st|
|00000a80| 72 69 6e 67 2d 72 65 76 | 65 72 73 65 20 23 5b 28 |ring-rev|erse #[(|
|00000a90| 73 74 72 29 20 22 08 47 | c1 58 ab 82 08 87 c2 08 |str) ".G|.X......|
|00000aa0| 47 c3 5c 22 c3 08 47 53 | 1c 1d 1e 06 c3 0c 58 ab |G.\"..GS|......X.|
|00000ab0| 90 1b 0e 06 0d 08 0c 48 | 49 88 0d 54 15 0c 53 14 |.......H|I..T..S.|
|00000ac0| aa 6b 1b 0e 06 2b 87 22 | 20 5b 73 74 72 20 31 20 |.k...+."| [str 1 |
|00000ad0| 6d 61 6b 65 2d 73 74 72 | 69 6e 67 20 30 20 6a 20 |make-str|ing 0 j |
|00000ae0| 69 20 72 65 73 75 6c 74 | 5d 20 34 5d 29 0a 28 64 |i result|] 4]).(d|
|00000af0| 65 66 61 6c 69 61 73 20 | 27 54 52 45 58 2d 73 74 |efalias |'TREX-st|
|00000b00| 72 69 6e 67 2d 66 6f 72 | 77 61 72 64 2d 61 6e 79 |ring-for|ward-any|
|00000b10| 63 68 61 72 20 23 5b 28 | 73 74 72 20 73 74 61 72 |char #[(|str star|
|00000b20| 74 29 20 22 08 3b ad 98 | 09 a7 ad 94 08 47 1a c3 |t) ".;..|.....G..|
|00000b30| 09 58 ad 8b 09 5c 6e 57 | ad 86 09 c4 08 09 5c 22 |.X...\nW|......\"|
|00000b40| 5c 5c 29 87 22 20 5b 73 | 74 72 20 73 74 61 72 74 |\\)." [s|tr start|
|00000b50| 20 6d 61 78 20 30 20 54 | 52 45 58 2d 63 68 61 72 | max 0 T|REX-char|
|00000b60| 2d 6f 63 74 65 74 73 5d | 20 34 5d 29 0a 28 64 65 |-octets]| 4]).(de|
|00000b70| 66 61 6c 69 61 73 20 27 | 54 52 45 58 2d 69 6e 69 |falias '|TREX-ini|
|00000b80| 74 20 27 28 6d 61 63 72 | 6f 20 2e 20 23 5b 28 73 |t '(macr|o . #[(s|
|00000b90| 79 6d 62 6f 6c 20 76 61 | 6c 75 65 29 20 22 c0 c1 |ymbol va|lue) "..|
|00000ba0| 5c 6e 44 c3 5c 6e 0c 45 | 45 87 22 20 5b 69 66 20 |\nD.\n.E|E." [if |
|00000bb0| 6e 75 6c 6c 20 73 79 6d | 62 6f 6c 20 73 65 74 71 |null sym|bol setq|
|00000bc0| 20 76 61 6c 75 65 5d 20 | 35 5d 29 29 0a 28 64 65 | value] |5])).(de|
|00000bd0| 66 61 6c 69 61 73 20 27 | 54 52 45 58 2d 70 75 73 |falias '|TREX-pus|
|00000be0| 68 20 27 28 6d 61 63 72 | 6f 20 2e 20 23 5b 28 76 |h '(macr|o . #[(v|
|00000bf0| 61 6c 20 73 79 6d 62 6f | 6c 29 20 22 c0 09 c2 0b |al symbo|l) "....|
|00000c00| 09 45 45 87 22 20 5b 73 | 65 74 71 20 73 79 6d 62 |.EE." [s|etq symb|
|00000c10| 6f 6c 20 63 6f 6e 73 20 | 76 61 6c 5d 20 35 5d 29 |ol cons |val] 5])|
|00000c20| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 54 52 45 |).(defal|ias 'TRE|
|00000c30| 58 2d 6d 65 6d 62 65 72 | 20 23 5b 28 65 6c 6d 20 |X-member| #[(elm |
|00000c40| 6c 69 73 74 20 70 72 65 | 64 29 20 22 08 ab 8d 09 |list pre|d) "....|
|00000c50| 5c 6e 08 40 5c 22 ac 86 | 08 41 89 10 ac 73 08 87 |\n.@\"..|.A...s..|
|00000c60| 22 20 5b 6c 69 73 74 20 | 70 72 65 64 20 65 6c 6d |" [list |pred elm|
|00000c70| 5d 20 34 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |] 4]).(d|efalias |
|00000c80| 27 54 52 45 58 2d 6d 65 | 6d 65 71 75 61 6c 20 23 |'TREX-me|mequal #|
|00000c90| 5b 28 65 6c 6d 20 6c 69 | 73 74 29 20 22 08 ab 8c |[(elm li|st) "...|
|00000ca0| 09 08 40 6b ac 86 08 41 | 89 10 ac 74 08 87 22 20 |..@k...A|...t.." |
|00000cb0| 5b 6c 69 73 74 20 65 6c | 6d 5d 20 33 5d 29 0a 28 |[list el|m] 3]).(|
|00000cc0| 64 65 66 61 6c 69 61 73 | 20 27 54 52 45 58 2d 66 |defalias| 'TREX-f|
|00000cd0| 69 6e 64 20 23 5b 28 65 | 6c 6d 20 6c 69 73 74 29 |ind #[(e|lm list)|
|00000ce0| 20 22 c0 19 5c 6e ab 8e | 0b 5c 6e 40 6b ac 88 5c | "..\n..|.\n@k..\|
|00000cf0| 6e 41 12 09 54 11 aa 6f | 5c 6e ad 81 09 29 87 22 |nA..T..o|\n...)."|
|00000d00| 20 5b 30 20 70 6f 73 20 | 6c 69 73 74 20 65 6c 6d | [0 pos |list elm|
|00000d10| 5d 20 32 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |] 2]).(d|efalias |
|00000d20| 27 54 52 45 58 2d 66 69 | 6e 64 2d 69 66 20 23 5b |'TREX-fi|nd-if #[|
|00000d30| 28 70 72 65 64 20 6c 69 | 73 74 29 20 22 c0 19 5c |(pred li|st) "..\|
|00000d40| 6e ab 8f 0b 5c 6e 40 21 | ac 89 09 54 11 5c 6e 41 |n...\n@!|...T.\nA|
|00000d50| 89 12 ac 71 5c 6e ad 81 | 09 29 87 22 20 5b 30 20 |...q\n..|.)." [0 |
|00000d60| 70 6f 73 20 6c 69 73 74 | 20 70 72 65 64 5d 20 33 |pos list| pred] 3|
|00000d70| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 54 52 |]).(defa|lias 'TR|
|00000d80| 45 58 2d 66 69 72 73 74 | 6e 20 23 5b 28 6c 69 73 |EX-first|n #[(lis|
|00000d90| 74 20 6e 29 20 22 08 c1 | 58 ae 82 5c 6e 3f 3f ad |t n) "..|X..\n??.|
|00000da0| 89 5c 6e 40 c3 5c 6e 41 | 08 53 5c 22 42 87 22 20 |.\n@.\nA|.S\"B." |
|00000db0| 5b 6e 20 30 20 6c 69 73 | 74 20 54 52 45 58 2d 66 |[n 0 lis|t TREX-f|
|00000dc0| 69 72 73 74 6e 5d 20 34 | 5d 29 0a 28 64 65 66 61 |irstn] 4|]).(defa|
|00000dd0| 6c 69 61 73 20 27 54 52 | 45 58 2d 64 65 6c 65 74 |lias 'TR|EX-delet|
|00000de0| 65 2d 64 75 70 6c 69 63 | 61 74 65 20 23 5b 28 6c |e-duplic|ate #[(l|
|00000df0| 69 73 74 29 20 22 c0 19 | 5c 6e ab 94 5c 6e 40 1b |ist) "..|\n..\n@.|
|00000e00| 1b c4 0b 09 5c 22 ac 84 | 0b 09 42 11 29 5c 6e 41 |....\"..|..B.)\nA|
|00000e10| 89 12 ac 6c 09 9f 29 87 | 22 20 5b 6e 69 6c 20 72 |...l..).|" [nil r|
|00000e20| 65 73 75 6c 74 20 6c 69 | 73 74 20 65 6c 6d 20 54 |esult li|st elm T|
|00000e30| 52 45 58 2d 6d 65 6d 65 | 71 75 61 6c 5d 20 34 5d |REX-meme|qual] 4]|
|00000e40| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 54 52 45 |).(defal|ias 'TRE|
|00000e50| 58 2d 64 65 6c 65 74 65 | 20 23 5b 28 65 6c 6d 20 |X-delete| #[(elm |
|00000e60| 6c 69 73 74 29 20 22 c0 | 19 5c 6e ab 91 0b 5c 6e |list) ".|.\n...\n|
|00000e70| 40 6b ac 85 5c 6e 40 09 | 42 11 5c 6e 41 89 12 ac |@k..\n@.|B.\nA...|
|00000e80| 6f 09 9f 29 87 22 20 5b | 6e 69 6c 20 72 65 73 75 |o..)." [|nil resu|
|00000e90| 6c 74 20 6c 69 73 74 20 | 65 6c 6d 5d 20 33 5d 29 |lt list |elm] 3])|
|00000ea0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 54 52 45 58 |.(defali|as 'TREX|
|00000eb0| 2d 73 74 72 69 6e 67 2d | 74 6f 2d 6c 69 73 74 20 |-string-|to-list |
|00000ec0| 23 5b 28 73 74 72 29 20 | 22 c0 c1 5c 6e 47 1b 1b |#[(str) |"..\nG..|
|00000ed0| 1c 1d 0c 0b 57 ab 8c 5c | 6e 0c 48 0d 42 15 0c 54 |....W..\|n.H.B..T|
|00000ee0| 89 14 aa 70 0d 9f 2b 87 | 22 20 5b 6e 69 6c 20 30 |...p..+.|" [nil 0|
|00000ef0| 20 73 74 72 20 6d 61 78 | 20 69 20 72 65 73 75 6c | str max| i resul|
|00000f00| 74 5d 20 34 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |t] 4]).(|defalias|
|00000f10| 20 27 54 52 45 58 2d 73 | 6f 72 74 20 23 5b 28 6c | 'TREX-s|ort #[(l|
|00000f20| 69 73 74 20 6c 65 73 73 | 70 20 26 6f 70 74 69 6f |ist less|p &optio|
|00000f30| 6e 61 6c 20 6b 65 79 29 | 20 22 08 ac 85 c1 5c 6e |nal key)| "....\n|
|00000f40| 0b 5c 22 87 c1 5c 6e c4 | 5c 22 87 22 20 5b 6b 65 |.\"..\n.|\"." [ke|
|00000f50| 79 20 73 6f 72 74 20 6c | 69 73 74 20 6c 65 73 73 |y sort l|ist less|
|00000f60| 70 20 23 5b 28 78 20 79 | 29 20 22 08 09 5c 6e 21 |p #[(x y|) "..\n!|
|00000f70| 09 0b 21 5c 22 87 22 20 | 5b 6c 65 73 73 70 20 6b |..!\"." |[lessp k|
|00000f80| 65 79 20 78 20 79 5d 20 | 34 5d 5d 20 33 5d 29 0a |ey x y] |4]] 3]).|
|00000f90| 28 64 65 66 61 6c 69 61 | 73 20 27 54 52 45 58 2d |(defalia|s 'TREX-|
|00000fa0| 6b 65 79 2d 6c 65 73 73 | 70 20 23 5b 28 78 20 79 |key-less|p #[(x y|
|00000fb0| 29 20 22 08 39 ab 8a 09 | 39 ab 84 08 09 99 87 c2 |) ".9...|9.......|
|00000fc0| 87 08 a7 ab 9a 09 a7 ab | 84 08 09 57 87 09 3a ab |........|...W..:.|
|00000fd0| 8c 09 40 c3 61 ab 86 08 | 09 41 40 57 87 c4 87 08 |..@.a...|.A@W....|
|00000fe0| 3a ab a4 08 40 c3 61 ab | 9e 09 3a ab 8e 09 40 c3 |:...@.a.|..:...@.|
|00000ff0| 61 ab 88 c5 08 38 09 41 | 40 57 87 09 a7 ab 86 c5 |a....8.A|@W......|
|00001000| 08 38 09 57 87 c4 87 c4 | 87 22 20 5b 78 20 79 20 |.8.W....|." [x y |
|00001010| 74 20 3a 72 61 6e 67 65 | 20 6e 69 6c 20 32 5d 20 |t :range| nil 2] |
|00001020| 32 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 54 |2]).(def|alias 'T|
|00001030| 52 45 58 2d 6c 65 73 73 | 70 2d 63 61 72 20 23 5b |REX-less|p-car #[|
|00001040| 28 78 20 79 29 20 22 08 | 40 09 40 19 18 c2 08 09 |(x y) ".|@.@.....|
|00001050| 5c 22 2a 87 22 20 5b 78 | 20 79 20 54 52 45 58 2d |\"*." [x| y TREX-|
|00001060| 6b 65 79 2d 6c 65 73 73 | 70 5d 20 33 5d 29 0a 28 |key-less|p] 3]).(|
|00001070| 64 65 66 61 6c 69 61 73 | 20 27 54 52 45 58 2d 64 |defalias| 'TREX-d|
|00001080| 65 66 69 6e 65 2d 65 6e | 75 6d 20 27 28 6d 61 63 |efine-en|um '(mac|
|00001090| 72 6f 20 2e 20 23 5b 28 | 26 72 65 73 74 20 6c 69 |ro . #[(|&rest li|
|000010a0| 73 74 29 20 22 c0 c1 5c | 6e 44 44 87 22 20 5b 54 |st) "..\|nDD." [T|
|000010b0| 52 45 58 2d 64 65 66 69 | 6e 65 2d 65 6e 75 6d 2a |REX-defi|ne-enum*|
|000010c0| 20 71 75 6f 74 65 20 6c | 69 73 74 5d 20 33 5d 29 | quote l|ist] 3])|
|000010d0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 54 52 45 |).(defal|ias 'TRE|
|000010e0| 58 2d 64 65 66 69 6e 65 | 2d 65 6e 75 6d 2a 20 23 |X-define|-enum* #|
|000010f0| 5b 28 6c 69 73 74 29 20 | 22 c0 19 5c 6e ad 8f 5c |[(list) |"..\n..\|
|00001100| 6e 40 09 4c 88 09 54 11 | 5c 6e 41 89 12 ac 72 c3 |n@.L..T.|\nA...r.|
|00001110| 29 87 22 20 5b 30 20 69 | 20 6c 69 73 74 20 6e 69 |)." [0 i| list ni|
|00001120| 6c 5d 20 33 5d 29 0a 28 | 64 65 66 76 61 72 20 2a |l] 3]).(|defvar *|
|00001130| 72 65 67 65 78 70 2d 70 | 61 72 73 65 2d 74 72 61 |regexp-p|arse-tra|
|00001140| 6e 73 6c 61 74 65 2a 20 | 6e 69 6c 20 22 5c 0a 1b |nslate* |nil "\..|
|00001150| 24 28 42 40 35 35 2c 49 | 3d 38 3d 24 72 46 49 24 |$(B@55,I|=8=$rFI$|
|00001160| 5f 39 7e 24 5f 43 66 24 | 4b 3b 48 4d 51 24 39 24 |_9~$_Cf$|K;HMQ$9$|
|00001170| 6b 1b 28 42 20 74 72 61 | 6e 73 6c 61 74 65 20 74 |k.(B tra|nslate t|
|00001180| 61 62 6c 65 2e 0a 0a 63 | 61 73 65 2d 66 6f 6c 64 |able...c|ase-fold|
|00001190| 2d 73 65 61 72 63 68 20 | 1b 24 28 42 24 4e 43 4d |-search |.$(B$NCM|
|000011a0| 24 4b 24 68 24 43 24 46 | 1b 28 42 20 64 6f 77 6e |$K$h$C$F|.(B down|
|000011b0| 63 61 73 65 74 61 62 6c | 65 20 1b 24 28 42 24 72 |casetabl|e .$(B$r|
|000011c0| 40 5f 44 6a 24 39 24 6b | 21 23 1b 28 42 22 29 0a |@_Dj$9$k|!#.(B").|
|000011d0| 28 64 65 66 61 6c 69 61 | 73 20 27 72 65 67 65 78 |(defalia|s 'regex|
|000011e0| 70 2d 70 61 72 73 65 2d | 74 72 61 6e 73 6c 61 74 |p-parse-|translat|
|000011f0| 65 2d 63 68 61 72 2d 73 | 74 72 69 6e 67 20 23 5b |e-char-s|tring #[|
|00001200| 28 73 74 72 29 20 22 08 | ab 8e 09 47 c2 55 ab 88 |(str) ".|...G.U..|
|00001210| c3 08 09 c4 48 48 21 87 | 09 87 22 20 5b 2a 72 65 |....HH!.|.." [*re|
|00001220| 67 65 78 70 2d 70 61 72 | 73 65 2d 74 72 61 6e 73 |gexp-par|se-trans|
|00001230| 6c 61 74 65 2a 20 73 74 | 72 20 31 20 63 68 61 72 |late* st|r 1 char|
|00001240| 2d 74 6f 2d 73 74 72 69 | 6e 67 20 30 5d 20 34 5d |-to-stri|ng 0] 4]|
|00001250| 29 0a 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 c1 |).(byte-|code "..|
|00001260| 21 ac 82 c2 11 c1 0b 42 | 13 c0 c4 21 ac 82 c2 14 |!......B|...!....|
|00001270| c4 0b 42 13 c0 c5 21 ac | 82 c2 15 c5 0b 42 13 c0 |..B...!.|.....B..|
|00001280| c6 21 ac 83 c2 16 06 c6 | 0b 42 13 c0 c7 21 ac 83 |.!......|.B...!..|
|00001290| c8 16 07 c7 0b 42 13 c2 | 87 22 20 5b 62 6f 75 6e |.....B..|." [boun|
|000012a0| 64 70 20 2a 72 65 67 65 | 78 70 2d 77 6f 72 64 2d |dp *rege|xp-word-|
|000012b0| 64 65 66 69 6e 69 74 69 | 6f 6e 2a 20 6e 69 6c 20 |definiti|on* nil |
|000012c0| 63 75 72 72 65 6e 74 2d | 6c 6f 61 64 2d 6c 69 73 |current-|load-lis|
|000012d0| 74 20 2a 72 65 67 65 78 | 70 2d 70 61 72 73 65 2d |t *regex|p-parse-|
|000012e0| 69 6e 64 65 78 2a 20 2a | 72 65 67 65 78 70 2d 70 |index* *|regexp-p|
|000012f0| 61 72 73 65 2d 65 6e 64 | 2a 20 2a 72 65 67 65 78 |arse-end|* *regex|
|00001300| 70 2d 70 61 72 73 65 2d | 73 74 72 2a 20 2a 72 65 |p-parse-|str* *re|
|00001310| 67 65 78 70 2d 70 61 72 | 73 65 2d 72 65 67 6e 6f |gexp-par|se-regno|
|00001320| 2a 20 31 5d 20 32 29 0a | 28 64 65 66 61 6c 69 61 |* 1] 2).|(defalia|
|00001330| 73 20 27 72 65 67 65 78 | 70 2d 65 72 72 6f 72 20 |s 'regex|p-error |
|00001340| 23 5b 28 26 6f 70 74 69 | 6f 6e 61 6c 20 72 65 61 |#[(&opti|onal rea|
|00001350| 73 6f 6e 29 20 22 08 ac | 82 c1 10 c2 c3 08 0c c5 |son) "..|........|
|00001360| 1b 0e 06 4f 0c 1b 0e 06 | c7 4f 24 87 22 20 5b 72 |...O....|.O$." [r|
|00001370| 65 61 73 6f 6e 20 22 42 | 61 64 20 72 65 67 65 78 |eason "B|ad regex|
|00001380| 70 22 20 65 72 72 6f 72 | 20 22 52 65 67 65 78 70 |p" error| "Regexp|
|00001390| 2d 70 61 72 73 65 3a 3a | 25 73 20 5c 22 25 73 5c |-parse::|%s \"%s\|
|000013a0| 22 20 2a 20 5c 22 25 73 | 5c 22 22 20 2a 72 65 67 |" * \"%s|\"" *reg|
|000013b0| 65 78 70 2d 70 61 72 73 | 65 2d 73 74 72 2a 20 30 |exp-pars|e-str* 0|
|000013c0| 20 2a 72 65 67 65 78 70 | 2d 70 61 72 73 65 2d 69 | *regexp|-parse-i|
|000013d0| 6e 64 65 78 2a 20 6e 69 | 6c 5d 20 37 5d 29 0a 28 |ndex* ni|l] 7]).(|
|000013e0| 64 65 66 61 6c 69 61 73 | 20 27 77 6f 72 64 2d 70 |defalias| 'word-p|
|000013f0| 61 72 73 65 20 23 5b 28 | 70 61 74 74 65 72 6e 29 |arse #[(|pattern)|
|00001400| 20 22 c0 19 c2 0b 21 29 | 87 22 20 5b 74 20 2a 72 | "....!)|." [t *r|
|00001410| 65 67 65 78 70 2d 77 6f | 72 64 2d 64 65 66 69 6e |egexp-wo|rd-defin|
|00001420| 69 74 69 6f 6e 2a 20 72 | 65 67 65 78 70 2d 70 61 |ition* r|egexp-pa|
|00001430| 72 73 65 20 70 61 74 74 | 65 72 6e 5d 20 32 5d 29 |rse patt|ern] 2])|
|00001440| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 72 65 67 65 |.(defali|as 'rege|
|00001450| 78 70 2d 70 61 72 73 65 | 20 23 5b 28 70 61 74 74 |xp-parse| #[(patt|
|00001460| 65 72 6e 29 20 22 08 19 | c2 1b 1b 08 47 1c c5 1e |ern) "..|....G...|
|00001470| 06 c7 20 1e 08 0c 0b 58 | ab 84 1b 0e 08 aa 82 c9 |.. ....X|........|
|00001480| 20 2d 87 22 20 5b 70 61 | 74 74 65 72 6e 20 2a 72 | -." [pa|ttern *r|
|00001490| 65 67 65 78 70 2d 70 61 | 72 73 65 2d 73 74 72 2a |egexp-pa|rse-str*|
|000014a0| 20 30 20 2a 72 65 67 65 | 78 70 2d 70 61 72 73 65 | 0 *rege|xp-parse|
|000014b0| 2d 69 6e 64 65 78 2a 20 | 2a 72 65 67 65 78 70 2d |-index* |*regexp-|
|000014c0| 70 61 72 73 65 2d 65 6e | 64 2a 20 31 20 2a 72 65 |parse-en|d* 1 *re|
|000014d0| 67 65 78 70 2d 70 61 72 | 73 65 2d 72 65 67 6e 6f |gexp-par|se-regno|
|000014e0| 2a 20 72 65 67 65 78 70 | 2d 70 61 72 73 65 2d 30 |* regexp|-parse-0|
|000014f0| 20 72 65 73 75 6c 74 20 | 72 65 67 65 78 70 2d 65 | result |regexp-e|
|00001500| 72 72 6f 72 5d 20 32 5d | 29 0a 28 64 65 66 61 6c |rror] 2]|).(defal|
|00001510| 69 61 73 20 27 72 65 67 | 65 78 70 2d 70 61 72 73 |ias 'reg|exp-pars|
|00001520| 65 2d 30 20 23 5b 6e 69 | 6c 20 22 c0 20 19 5c 6e |e-0 #[ni|l ". .\n|
|00001530| 0b 58 ab 83 09 aa a1 0b | 54 5c 6e 57 ab 9a 0c 0b |.X......|T\nW....|
|00001540| 48 c5 55 ab 93 0c 0b 54 | 48 c6 55 ab 8b 0b c7 5c |H.U....T|H.U....\|
|00001550| 5c 13 c8 09 c9 20 45 aa | 81 09 29 87 22 20 5b 72 |\.... E.|..)." [r|
|00001560| 65 67 65 78 70 2d 70 61 | 72 73 65 2d 31 20 72 65 |egexp-pa|rse-1 re|
|00001570| 73 75 6c 74 20 2a 72 65 | 67 65 78 70 2d 70 61 72 |sult *re|gexp-par|
|00001580| 73 65 2d 65 6e 64 2a 20 | 2a 72 65 67 65 78 70 2d |se-end* |*regexp-|
|00001590| 70 61 72 73 65 2d 69 6e | 64 65 78 2a 20 2a 72 65 |parse-in|dex* *re|
|000015a0| 67 65 78 70 2d 70 61 72 | 73 65 2d 73 74 72 2a 20 |gexp-par|se-str* |
|000015b0| 3f 5c 5c 20 3f 5c 7c 20 | 32 20 3a 6f 72 20 72 65 |?\\ ?\| |2 :or re|
|000015c0| 67 65 78 70 2d 70 61 72 | 73 65 2d 30 5d 20 33 5d |gexp-par|se-0] 3]|
|000015d0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 72 65 67 |).(defal|ias 'reg|
|000015e0| 65 78 70 2d 70 61 72 73 | 65 2d 31 20 23 5b 6e 69 |exp-pars|e-1 #[ni|
|000015f0| 6c 20 22 c0 89 19 1a c3 | 20 89 11 ab 86 09 5c 6e |l ".....| .....\n|
|00001600| 42 12 aa 74 5c 6e ad 8c | 5c 6e 41 ab 86 c4 5c 6e |B..t\n..|\nA...\n|
|00001610| 9f 42 aa 82 5c 6e 40 2a | 87 22 20 5b 6e 69 6c 20 |.B..\n@*|." [nil |
|00001620| 72 65 73 75 6c 74 32 20 | 72 65 73 75 6c 74 73 20 |result2 |results |
|00001630| 72 65 67 65 78 70 2d 70 | 61 72 73 65 2d 32 20 3a |regexp-p|arse-2 :|
|00001640| 73 65 71 5d 20 32 5d 29 | 0a 28 64 65 66 61 6c 69 |seq] 2])|.(defali|
|00001650| 61 73 20 27 72 65 67 65 | 78 70 2d 70 61 72 73 65 |as 'rege|xp-parse|
|00001660| 2d 32 20 23 5b 6e 69 6c | 20 22 c0 20 19 5c 6e 0b |-2 #[nil| ". .\n.|
|00001670| 57 ab b3 c4 0d 5c 6e 48 | c6 5c 22 ab ab 0d 5c 6e |W....\nH|.\"...\n|
|00001680| 48 1e 07 5c 6e 54 12 1b | 0e 07 c8 55 ab 85 c9 09 |H..\nT..|...U....|
|00001690| 44 aa 94 1b 0e 07 ca 55 | ab 85 cb 09 44 aa 89 1b |D......U|....D...|
|000016a0| 0e 07 cc 55 ad 83 cd 09 | 44 11 29 aa 48 09 29 87 |...U....|D.).H.).|
|000016b0| 22 20 5b 72 65 67 65 78 | 70 2d 70 61 72 73 65 2d |" [regex|p-parse-|
|000016c0| 33 20 72 65 73 75 6c 74 | 20 2a 72 65 67 65 78 70 |3 result| *regexp|
|000016d0| 2d 70 61 72 73 65 2d 69 | 6e 64 65 78 2a 20 2a 72 |-parse-i|ndex* *r|
|000016e0| 65 67 65 78 70 2d 70 61 | 72 73 65 2d 65 6e 64 2a |egexp-pa|rse-end*|
|000016f0| 20 54 52 45 58 2d 6d 65 | 6d 65 71 75 61 6c 20 2a | TREX-me|mequal *|
|00001700| 72 65 67 65 78 70 2d 70 | 61 72 73 65 2d 73 74 72 |regexp-p|arse-str|
|00001710| 2a 20 28 3f 5c 2a 20 3f | 5c 2b 20 3f 5c 3f 29 20 |* (?\* ?|\+ ?\?) |
|00001720| 63 68 20 3f 5c 2a 20 3a | 73 74 61 72 20 3f 5c 2b |ch ?\* :|star ?\+|
|00001730| 20 3a 70 6c 75 73 20 3f | 5c 3f 20 3a 6f 70 74 69 | :plus ?|\? :opti|
|00001740| 6f 6e 61 6c 5d 20 33 5d | 29 0a 28 64 65 66 61 6c |onal] 3]|).(defal|
|00001750| 69 61 73 20 27 72 65 67 | 65 78 70 2d 70 61 72 73 |ias 'reg|exp-pars|
|00001760| 65 2d 33 20 23 5b 6e 69 | 6c 20 22 08 09 58 3f 85 |e-3 #[ni|l "..X?.|
|00001770| 1c 02 09 1a 09 1b 1b 08 | 1c 0d 0b 48 1e 06 09 54 |........|...H...T|
|00001780| 11 1b 0e 06 c7 55 ab 84 | c8 82 1b 1b 02 1b 0e 06 |.....U..|........|
|00001790| c9 55 ab 84 ca 82 1b 1b | 02 1b 0e 06 cb 55 ab 84 |.U......|.....U..|
|000017a0| cc 82 1b 1b 02 1b 0e 06 | cd 55 ab 85 ce 20 82 1b |........|.U... ..|
|000017b0| 1b 02 1b 0e 06 cf 55 ab | 86 5c 6e 11 d0 82 1b 1b |......U.|.\n.....|
|000017c0| 02 1b 0e 06 d1 55 ab 86 | 5c 6e 11 d0 82 1b 1b 02 |.....U..|\n......|
|000017d0| 1b 0e 06 d2 55 ab 86 5c | 6e 11 d0 82 1b 1b 02 1b |....U..\|n.......|
|000017e0| 0e 06 d3 55 ab 86 5c 6e | 11 d0 82 1b 1b 02 1b 0e |...U..\n|........|
|000017f0| 06 d4 55 83 03 02 0b 54 | 0c 57 83 03 02 0d 0b 54 |..U....T|.W.....T|
|00001800| 48 16 06 0b 54 13 09 54 | 11 1b 0e 06 d5 55 ab 86 |H...T..T|.....U..|
|00001810| 5c 6e 11 d0 82 1b 1b 02 | 1b 0e 06 d6 55 ab cd d7 |\n......|....U...|
|00001820| 1b 0e 18 57 ab 84 d9 da | 21 88 1b 0e 18 1e 1b 1b |...W....|!.......|
|00001830| 1b 0e 18 54 16 18 dc 20 | 1e 1d 09 54 08 57 ab aa |...T... |...T.W..|
|00001840| 0d 09 48 d4 55 ab a3 0d | 09 54 48 de 55 ab 9b 09 |..H.U...|.TH.U...|
|00001850| df 5c 5c 11 1b 0e 20 ab | 84 1b 0e 1d aa 91 e1 1b |.\\... .|........|
|00001860| 0e 1b 1b 1b 0e 18 1b 0e | 1b 1b 5a e2 5a 1b 0e 1d |........|..Z.Z...|
|00001870| 46 aa 82 d9 20 2a 82 1b | 1b 02 1b 0e 06 de 55 ab |F... *..|......U.|
|00001880| 86 5c 6e 11 d0 82 1b 1b | 02 1b 0e 06 e3 55 ab 84 |.\n.....|.....U..|
|00001890| e4 82 1b 1b 02 1b 0e 06 | e5 55 ab 84 e6 82 1b 1b |........|.U......|
|000018a0| 02 1b 0e 06 e7 55 ab 8d | 1b 0e 20 ab 85 d9 20 82 |.....U..|.. ... .|
|000018b0| 1b 1b 02 e8 82 1b 1b 02 | 1b 0e 06 e9 55 ab 8d 1b |........|....U...|
|000018c0| 0e 20 ab 85 d9 20 82 1b | 1b 02 ea 82 1b 1b 02 1b |. ... ..|........|
|000018d0| 0e 06 eb 55 ab 8d 1b 0e | 20 ab 85 d9 20 82 1b 1b |...U....| ... ...|
|000018e0| 02 ec 82 1b 1b 02 1b 0e | 06 ed 55 ab 8d 1b 0e 20 |........|..U.... |
|000018f0| ab 85 d9 20 82 1b 1b 02 | ee 82 1b 1b 02 1b 0e 06 |... ....|........|
|00001900| ef 55 ab 88 f0 f1 ef 21 | 44 82 1b 1b 02 1b 0e 06 |.U.....!|D.......|
|00001910| f2 55 ab 88 f3 f1 ef 21 | 44 82 1b 1b 02 f4 1b 0e |.U.....!|D.......|
|00001920| 06 58 ab 98 1b 0e 06 f5 | 58 ab 92 1b 0e 20 ab 85 |.X......|X.... ..|
|00001930| d9 20 82 1b 1b 02 f6 1b | 0e 06 f7 5a 44 82 1b 1b |. ......|...ZD...|
|00001940| 02 1b 0e 06 f7 55 ab 85 | d9 20 82 1b 1b 02 1b 0e |.....U..|. ......|
|00001950| 06 f8 55 ab 93 0b 54 0c | 57 ab 8d 09 54 11 f0 f1 |..U...T.|W...T...|
|00001960| 0d 0b 54 48 21 44 aa ea | 1b 0e 06 f9 55 ab 93 0b |..TH!D..|....U...|
|00001970| 54 0c 57 ab 8d 09 54 11 | f3 f1 0d 0b 54 48 21 44 |T.W...T.|....TH!D|
|00001980| aa d1 1b 0e 06 fa 55 ab | 91 0b 54 0c 57 ab 8b 09 |......U.|..T.W...|
|00001990| 54 11 fb 0d 0b 54 48 44 | aa ba 1b 0e 06 fc 55 ab |T....THD|......U.|
|000019a0| 91 0b 54 0c 57 ab 8b 09 | 54 11 fd 0d 0b 54 48 44 |..T.W...|T....THD|
|000019b0| aa a3 fe 0d 0b 54 0b df | 5c 5c 4f 21 aa 98 ff 0d |.....T..|\\O!....|
|000019c0| 0b 5c 22 89 1e 40 ab 8c | 1b 0e 40 11 fe 0d 0b 1b |.\"..@..|..@.....|
|000019d0| 0e 40 4f 21 aa 82 d9 20 | 29 2c 87 22 20 5b 2a 72 |.@O!... |),." [*r|
|000019e0| 65 67 65 78 70 2d 70 61 | 72 73 65 2d 65 6e 64 2a |egexp-pa|rse-end*|
|000019f0| 20 2a 72 65 67 65 78 70 | 2d 70 61 72 73 65 2d 69 | *regexp|-parse-i|
|00001a00| 6e 64 65 78 2a 20 73 74 | 61 72 74 20 69 20 65 6e |ndex* st|art i en|
|00001a10| 64 20 2a 72 65 67 65 78 | 70 2d 70 61 72 73 65 2d |d *regex|p-parse-|
|00001a20| 73 74 72 2a 20 63 68 20 | 3f 5c 2e 20 28 41 4e 59 |str* ch |?\. (ANY|
|00001a30| 43 48 41 52 29 20 3f 5e | 20 28 42 45 47 4c 49 4e |CHAR) ?^| (BEGLIN|
|00001a40| 45 29 20 3f 5c 24 20 28 | 45 4e 44 4c 49 4e 45 29 |E) ?\$ (|ENDLINE)|
|00001a50| 20 3f 5c 5b 20 72 65 67 | 65 78 70 2d 70 61 72 73 | ?\[ reg|exp-pars|
|00001a60| 65 2d 63 68 61 72 73 65 | 74 20 3f 5c 5d 20 6e 69 |e-charse|t ?\] ni|
|00001a70| 6c 20 3f 5c 2a 20 3f 5c | 2b 20 3f 5c 3f 20 3f 5c |l ?\* ?\|+ ?\? ?\|
|00001a80| 5c 20 3f 5c 7c 20 3f 5c | 28 20 39 20 2a 72 65 67 |\ ?\| ?\|( 9 *reg|
|00001a90| 65 78 70 2d 70 61 72 73 | 65 2d 72 65 67 6e 6f 2a |exp-pars|e-regno*|
|00001aa0| 20 72 65 67 65 78 70 2d | 65 72 72 6f 72 20 22 54 | regexp-|error "T|
|00001ab0| 6f 6f 20 6d 61 6e 79 20 | 70 61 72 65 6e 74 68 22 |oo many |parenth"|
|00001ac0| 20 72 65 67 65 78 70 2d | 70 61 72 73 65 2d 72 65 | regexp-|parse-re|
|00001ad0| 67 6e 6f 20 72 65 67 65 | 78 70 2d 70 61 72 73 65 |gno rege|xp-parse|
|00001ae0| 2d 30 20 72 65 73 75 6c | 74 20 3f 5c 29 20 32 20 |-0 resul|t ?\) 2 |
|00001af0| 2a 72 65 67 65 78 70 2d | 77 6f 72 64 2d 64 65 66 |*regexp-|word-def|
|00001b00| 69 6e 69 74 69 6f 6e 2a | 20 3a 6d 61 72 6b 20 31 |inition*| :mark 1|
|00001b10| 20 3f 5c 60 20 28 42 45 | 47 42 55 46 29 20 3f 5c | ?\` (BE|GBUF) ?\|
|00001b20| 27 20 28 45 4e 44 42 55 | 46 29 20 3f 62 20 28 57 |' (ENDBU|F) ?b (W|
|00001b30| 4f 52 44 42 4f 55 4e 44 | 29 20 3f 42 20 28 4e 4f |ORDBOUND|) ?B (NO|
|00001b40| 54 57 4f 52 44 42 4f 55 | 4e 44 29 20 3f 5c 3c 20 |TWORDBOU|ND) ?\< |
|00001b50| 28 57 4f 52 44 42 45 47 | 29 20 3f 5c 3e 20 28 57 |(WORDBEG|) ?\> (W|
|00001b60| 4f 52 44 45 4e 44 29 20 | 3f 77 20 53 59 4e 54 41 |ORDEND) |?w SYNTA|
|00001b70| 58 53 50 45 43 20 73 79 | 6e 74 61 78 2d 73 70 65 |XSPEC sy|ntax-spe|
|00001b80| 63 2d 63 6f 64 65 20 3f | 57 20 4e 4f 54 53 59 4e |c-code ?|W NOTSYN|
|00001b90| 54 41 58 53 50 45 43 20 | 3f 31 20 3f 39 20 44 55 |TAXSPEC |?1 ?9 DU|
|00001ba0| 50 4c 49 43 41 54 45 20 | 3f 30 20 3f 73 20 3f 53 |PLICATE |?0 ?s ?S|
|00001bb0| 20 3f 63 20 43 41 54 45 | 47 4f 52 59 53 50 45 43 | ?c CATE|GORYSPEC|
|00001bc0| 20 3f 43 20 4e 4f 54 43 | 41 54 45 47 4f 52 59 53 | ?C NOTC|ATEGORYS|
|00001bd0| 50 45 43 20 72 65 67 65 | 78 70 2d 70 61 72 73 65 |PEC rege|xp-parse|
|00001be0| 2d 74 72 61 6e 73 6c 61 | 74 65 2d 63 68 61 72 2d |-transla|te-char-|
|00001bf0| 73 74 72 69 6e 67 20 54 | 52 45 58 2d 73 74 72 69 |string T|REX-stri|
|00001c00| 6e 67 2d 66 6f 72 77 61 | 72 64 2d 61 6e 79 63 68 |ng-forwa|rd-anych|
|00001c10| 61 72 20 6e 65 78 74 70 | 6f 73 5d 20 36 5d 29 0a |ar nextp|os] 6]).|
|00001c20| 28 64 65 66 61 6c 69 61 | 73 20 27 72 65 67 65 78 |(defalia|s 'regex|
|00001c30| 70 2d 70 61 72 73 65 2d | 63 68 61 72 73 65 74 20 |p-parse-|charset |
|00001c40| 23 5b 6e 69 6c 20 22 08 | 09 57 ab 94 5c 6e 08 48 |#[nil ".|.W..\n.H|
|00001c50| c3 61 ab 88 08 54 10 c4 | c5 c6 5c 22 87 c4 c7 c6 |.a...T..|..\"....|
|00001c60| 5c 22 87 c8 20 87 22 20 | 5b 2a 72 65 67 65 78 70 |\".. ." |[*regexp|
|00001c70| 2d 70 61 72 73 65 2d 69 | 6e 64 65 78 2a 20 2a 72 |-parse-i|ndex* *r|
|00001c80| 65 67 65 78 70 2d 70 61 | 72 73 65 2d 65 6e 64 2a |egexp-pa|rse-end*|
|00001c90| 20 2a 72 65 67 65 78 70 | 2d 70 61 72 73 65 2d 73 | *regexp|-parse-s|
|00001ca0| 74 72 2a 20 3f 5e 20 72 | 65 67 65 78 70 2d 70 61 |tr* ?^ r|egexp-pa|
|00001cb0| 72 73 65 2d 63 68 61 72 | 73 65 74 30 20 43 48 41 |rse-char|set0 CHA|
|00001cc0| 52 53 45 54 5f 4e 4f 54 | 20 6e 69 6c 20 43 48 41 |RSET_NOT| nil CHA|
|00001cd0| 52 53 45 54 20 72 65 67 | 65 78 70 2d 65 72 72 6f |RSET reg|exp-erro|
|00001ce0| 72 5d 20 33 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |r] 3]).(|defalias|
|00001cf0| 20 27 72 65 67 65 78 70 | 2d 70 61 72 73 65 2d 63 | 'regexp|-parse-c|
|00001d00| 68 61 72 73 65 74 30 20 | 23 5b 28 6f 70 20 6c 69 |harset0 |#[(op li|
|00001d10| 73 74 29 20 22 08 09 57 | ab 94 5c 6e 08 48 c3 61 |st) "..W|..\n.H.a|
|00001d20| ab 88 08 54 10 c4 0d c6 | 5c 22 87 c4 0d c7 5c 22 |...T....|\"....\"|
|00001d30| 87 c8 20 87 22 20 5b 2a | 72 65 67 65 78 70 2d 70 |.. ." [*|regexp-p|
|00001d40| 61 72 73 65 2d 69 6e 64 | 65 78 2a 20 2a 72 65 67 |arse-ind|ex* *reg|
|00001d50| 65 78 70 2d 70 61 72 73 | 65 2d 65 6e 64 2a 20 2a |exp-pars|e-end* *|
|00001d60| 72 65 67 65 78 70 2d 70 | 61 72 73 65 2d 73 74 72 |regexp-p|arse-str|
|00001d70| 2a 20 3f 5c 5d 20 72 65 | 67 65 78 70 2d 70 61 72 |* ?\] re|gexp-par|
|00001d80| 73 65 2d 63 68 61 72 73 | 65 74 31 20 6f 70 20 28 |se-chars|et1 op (|
|00001d90| 22 5d 22 29 20 6e 69 6c | 20 72 65 67 65 78 70 2d |"]") nil| regexp-|
|00001da0| 65 72 72 6f 72 5d 20 33 | 5d 29 0a 28 64 65 66 61 |error] 3|]).(defa|
|00001db0| 6c 69 61 73 20 27 72 65 | 67 65 78 70 2d 70 61 72 |lias 're|gexp-par|
|00001dc0| 73 65 2d 63 68 61 72 73 | 65 74 31 20 23 5b 28 6f |se-chars|et1 #[(o|
|00001dd0| 70 20 6c 69 73 74 29 20 | 22 08 09 57 83 5c 6e 01 |p list) |"..W.\n.|
|00001de0| 08 1a c3 0c 5c 6e 5c 22 | 1d c3 0c 0d 5c 22 1e 06 |....\n\"|....\"..|
|00001df0| c3 0c 1b 0e 06 5c 22 1e | 07 5c 6e 83 06 01 0c 5c |.....\".|.\n....\|
|00001e00| 6e 48 c8 61 ab 8e 0d 10 | 1b 0e 09 ca 1b 0e 0b 9f |nH.a....|........|
|00001e10| cc 5c 22 42 82 08 01 0d | 83 bf 00 1b 0e 06 83 bf |.\"B....|........|
|00001e20| 00 1b 0e 07 ab ff 0c 0d | 48 cd 61 ab f8 0c 1b 0e |........|H.a.....|
|00001e30| 06 48 c8 61 ac f0 0c 5c | 6e 0d 4f 0c 1b 0e 06 1b |.H.a...\|n.O.....|
|00001e40| 0e 07 4f 1e 1b 0e 89 1e | 1b 0f 47 1b 0e 1b 0e 47 |..O.....|..G....G|
|00001e50| 55 ab cb d0 1b 0e 1b 0f | d1 5c 22 ac c4 d0 1b 0e |U.......|.\".....|
|00001e60| 1b 0e d1 5c 22 ac bd 1b | 0e 1b 0f 47 d2 55 ac 8b |...\"...|...G.U..|
|00001e70| 1b 0e 1b 0f d1 48 1b 0e | 1b 0e d1 48 55 ab ab 1b |.....H..|...HU...|
|00001e80| 0e 1b 0f 1b 0e 1b 0e 98 | ac 87 1b 0e 1b 0f 1b 0e |........|........|
|00001e90| 1b 0e 99 ab 9d 1b 0e 1b | 0f 1b 0e 1b 0e 98 ab 89 |........|........|
|00001ea0| 1b 0e 1b 0f 1b 0e 0b 42 | 16 0b aa 90 d3 1b 0e 1b |.......B|........|
|00001eb0| 0f 1b 0e 1b 0e 45 1b 0e | 0b 42 16 0b aa 83 d4 20 |.....E..|.B..... |
|00001ec0| 88 2a 1b 0e 07 10 d5 1b | 0e 09 1b 0e 0b 5c 22 aa |.*......|.....\".|
|00001ed0| c9 0d ab b1 1b 0e 06 ab | ad 0c 0d 48 cd 61 ab a6 |........|...H.a..|
|00001ee0| 0c 1b 0e 06 48 c8 61 ab | 9e 0c 5c 6e 0d 4f 1b 0e |....H.a.|..\n.O..|
|00001ef0| 0b 42 16 0b 0c 0d 1b 0e | 06 4f 1b 0e 0b 42 16 0b |.B......|.O...B..|
|00001f00| 1b 0e 06 10 d5 1b 0e 09 | 1b 0e 0b 5c 22 aa 95 0c |........|...\"...|
|00001f10| 5c 6e 0d 4f 1b 0e 0b 42 | 16 0b 0d 10 d5 1b 0e 09 |\n.O...B|........|
|00001f20| 1b 0e 0b 5c 22 aa 82 d4 | 20 2c 87 d4 20 87 22 20 |...\"...| ,.. ." |
|00001f30| 5b 2a 72 65 67 65 78 70 | 2d 70 61 72 73 65 2d 69 |[*regexp|-parse-i|
|00001f40| 6e 64 65 78 2a 20 2a 72 | 65 67 65 78 70 2d 70 61 |ndex* *r|egexp-pa|
|00001f50| 72 73 65 2d 65 6e 64 2a | 20 70 6f 73 30 20 54 52 |rse-end*| pos0 TR|
|00001f60| 45 58 2d 73 74 72 69 6e | 67 2d 66 6f 72 77 61 72 |EX-strin|g-forwar|
|00001f70| 64 2d 61 6e 79 63 68 61 | 72 20 2a 72 65 67 65 78 |d-anycha|r *regex|
|00001f80| 70 2d 70 61 72 73 65 2d | 73 74 72 2a 20 70 6f 73 |p-parse-|str* pos|
|00001f90| 31 20 70 6f 73 32 20 70 | 6f 73 33 20 3f 5c 5d 20 |1 pos2 p|os3 ?\] |
|00001fa0| 6f 70 20 73 6f 72 74 20 | 6c 69 73 74 20 54 52 45 |op sort |list TRE|
|00001fb0| 58 2d 63 68 61 72 73 65 | 74 2d 6c 65 73 73 70 20 |X-charse|t-lessp |
|00001fc0| 3f 5c 2d 20 74 6f 20 66 | 72 6f 6d 20 54 52 45 58 |?\- to f|rom TREX|
|00001fd0| 2d 63 6f 6d 70 2d 63 68 | 61 72 70 20 30 20 31 20 |-comp-ch|arp 0 1 |
|00001fe0| 3a 72 61 6e 67 65 20 72 | 65 67 65 78 70 2d 65 72 |:range r|egexp-er|
|00001ff0| 72 6f 72 20 72 65 67 65 | 78 70 2d 70 61 72 73 65 |ror rege|xp-parse|
|00002000| 2d 63 68 61 72 73 65 74 | 31 5d 20 35 5d 29 0a 28 |-charset|1] 5]).(|
|00002010| 64 65 66 61 6c 69 61 73 | 20 27 54 52 45 58 2d 63 |defalias| 'TREX-c|
|00002020| 68 61 72 73 65 74 2d 6c | 65 73 73 70 20 23 5b 28 |harset-l|essp #[(|
|00002030| 63 68 31 20 63 68 32 29 | 20 22 08 3b ab 88 09 3b |ch1 ch2)| ".;...;|
|00002040| ab 84 08 09 99 87 08 3a | ab 8c 09 3a ab 88 c2 08 |.......:|...:....|
|00002050| 38 09 41 40 99 87 08 3a | ab 86 c2 08 38 09 99 87 |8.A@...:|....8...|
|00002060| 09 3a ad 85 08 09 41 40 | 99 87 22 20 5b 63 68 31 |.:....A@|.." [ch1|
|00002070| 20 63 68 32 20 32 5d 20 | 32 5d 29 0a 28 64 65 66 | ch2 2] |2]).(def|
|00002080| 61 6c 69 61 73 20 27 64 | 65 66 69 6e 65 2d 72 65 |alias 'd|efine-re|
|00002090| 67 65 78 70 20 27 28 6d | 61 63 72 6f 20 2e 20 23 |gexp '(m|acro . #|
|000020a0| 5b 28 6e 61 6d 65 20 26 | 72 65 73 74 20 66 6f 72 |[(name &|rest for|
|000020b0| 6d 73 29 20 22 c0 c1 5c | 6e 44 c1 0b 44 45 87 22 |ms) "..\|nD..DE."|
|000020c0| 20 5b 64 65 66 69 6e 65 | 2d 72 65 67 65 78 70 2a | [define|-regexp*|
|000020d0| 20 71 75 6f 74 65 20 6e | 61 6d 65 20 66 6f 72 6d | quote n|ame form|
|000020e0| 73 5d 20 34 5d 29 29 0a | 28 64 65 66 61 6c 69 61 |s] 4])).|(defalia|
|000020f0| 73 20 27 64 65 66 69 6e | 65 2d 72 65 67 65 78 70 |s 'defin|e-regexp|
|00002100| 2a 20 23 5b 28 6e 61 6d | 65 20 66 6f 72 6d 73 29 |* #[(nam|e forms)|
|00002110| 20 22 c0 09 c2 c3 23 88 | c0 09 c4 0d 47 c6 55 ab | "....#.|....G.U.|
|00002120| 84 0d 40 aa 83 c7 0d 42 | 23 87 22 20 5b 70 75 74 |..@....B|#." [put|
|00002130| 20 6e 61 6d 65 20 3a 72 | 65 67 65 78 70 2d 68 61 | name :r|egexp-ha|
|00002140| 73 2d 64 65 66 69 6e 69 | 74 69 6f 6e 20 74 20 3a |s-defini|tion t :|
|00002150| 72 65 67 65 78 70 2d 64 | 65 66 69 6e 69 74 69 6f |regexp-d|efinitio|
|00002160| 6e 20 66 6f 72 6d 73 20 | 31 20 3a 73 65 71 5d 20 |n forms |1 :seq] |
|00002170| 35 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 72 |5]).(def|alias 'r|
|00002180| 65 67 65 78 70 2d 67 65 | 74 2d 64 65 66 69 6e 69 |egexp-ge|t-defini|
|00002190| 74 69 6f 6e 20 23 5b 28 | 6e 61 6d 65 29 20 22 08 |tion #[(|name) ".|
|000021a0| c1 4e 87 22 20 5b 6e 61 | 6d 65 20 3a 72 65 67 65 |.N." [na|me :rege|
|000021b0| 78 70 2d 64 65 66 69 6e | 69 74 69 6f 6e 5d 20 32 |xp-defin|ition] 2|
|000021c0| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 72 65 |]).(defa|lias 're|
|000021d0| 67 65 78 70 2d 64 65 66 | 69 6e 65 2d 73 70 65 63 |gexp-def|ine-spec|
|000021e0| 69 61 6c 73 20 23 5b 28 | 6e 61 6d 65 73 29 20 22 |ials #[(|names) "|
|000021f0| c0 c1 5c 6e 5c 22 87 22 | 20 5b 6d 61 70 63 61 72 |..\n\"."| [mapcar|
|00002200| 20 23 5b 28 6e 61 6d 65 | 29 20 22 c0 09 c2 c3 23 | #[(name|) "....#|
|00002210| 87 22 20 5b 70 75 74 20 | 6e 61 6d 65 20 3a 72 65 |." [put |name :re|
|00002220| 67 65 78 70 2d 73 70 65 | 63 69 61 6c 20 74 5d 20 |gexp-spe|cial t] |
|00002230| 34 5d 20 6e 61 6d 65 73 | 5d 20 33 5d 29 0a 28 64 |4] names|] 3]).(d|
|00002240| 65 66 61 6c 69 61 73 20 | 27 72 65 67 65 78 70 2d |efalias |'regexp-|
|00002250| 68 61 73 2d 64 65 66 69 | 6e 69 74 69 6f 6e 20 23 |has-defi|nition #|
|00002260| 5b 28 6e 61 6d 65 29 20 | 22 08 c1 4e 87 22 20 5b |[(name) |"..N." [|
|00002270| 6e 61 6d 65 20 3a 72 65 | 67 65 78 70 2d 68 61 73 |name :re|gexp-has|
|00002280| 2d 64 65 66 69 6e 69 74 | 69 6f 6e 5d 20 32 5d 29 |-definit|ion] 2])|
|00002290| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 72 65 67 65 |.(defali|as 'rege|
|000022a0| 78 70 2d 73 70 65 63 69 | 61 6c 70 20 23 5b 28 6e |xp-speci|alp #[(n|
|000022b0| 61 6d 65 29 20 22 08 c1 | 4e 87 22 20 5b 6e 61 6d |ame) "..|N." [nam|
|000022c0| 65 20 3a 72 65 67 65 78 | 70 2d 73 70 65 63 69 61 |e :regex|p-specia|
|000022d0| 6c 5d 20 32 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |l] 2]).(|defalias|
|000022e0| 20 27 72 65 67 65 78 70 | 2d 65 78 70 61 6e 64 2d | 'regexp|-expand-|
|000022f0| 64 65 66 69 6e 69 74 69 | 6f 6e 20 23 5b 28 72 65 |definiti|on #[(re|
|00002300| 67 65 78 70 20 26 6f 70 | 74 69 6f 6e 61 6c 20 63 |gexp &op|tional c|
|00002310| 61 6c 6c 65 72 73 29 20 | 22 08 3a 83 94 00 08 40 |allers) |".:....@|
|00002320| 89 19 c2 61 ab 8f c2 08 | 41 40 c3 08 38 c4 c5 08 |...a....|A@..8...|
|00002330| 38 21 46 aa f6 09 c6 61 | ab 89 c6 c7 c4 08 41 5c |8!F....a|......A\|
|00002340| 22 42 aa e8 09 c8 61 ab | 89 c8 c7 c4 08 41 5c 22 |"B....a.|.....A\"|
|00002350| 42 aa da 09 c9 61 ab 89 | c9 c4 08 41 40 21 44 aa |B....a..|...A@!D.|
|00002360| cc 09 ca 61 ab 89 ca c4 | 08 41 40 21 44 aa be 09 |...a....|.A@!D...|
|00002370| cb 61 ab 89 cb c4 08 41 | 40 21 44 aa b0 09 cc 61 |.a.....A|@!D....a|
|00002380| ab 83 08 aa a8 cd 09 21 | ab 83 08 aa a0 09 1b 0e |.......!|........|
|00002390| 1b 0e 73 ab 86 cf d0 09 | 5c 22 aa 94 d1 09 21 ab |..s.....|\"....!.|
|000023a0| 8b c4 d2 09 21 09 1b 0e | 1b 0e 42 5c 22 aa 84 cf |....!...|..B\"...|
|000023b0| d3 09 5c 22 29 87 08 3b | ab 82 08 87 08 ac 82 08 |..\")..;|........|
|000023c0| 87 08 87 22 20 5b 72 65 | 67 65 78 70 20 6f 70 20 |..." [re|gexp op |
|000023d0| 3a 6d 61 72 6b 20 32 20 | 72 65 67 65 78 70 2d 65 |:mark 2 |regexp-e|
|000023e0| 78 70 61 6e 64 2d 64 65 | 66 69 6e 69 74 69 6f 6e |xpand-de|finition|
|000023f0| 20 33 20 3a 6f 72 20 6d | 61 70 63 61 72 20 3a 73 | 3 :or m|apcar :s|
|00002400| 65 71 20 3a 6f 70 74 69 | 6f 6e 61 6c 20 3a 73 74 |eq :opti|onal :st|
|00002410| 61 72 20 3a 70 6c 75 73 | 20 3a 72 61 6e 67 65 20 |ar :plus| :range |
|00002420| 72 65 67 65 78 70 2d 73 | 70 65 63 69 61 6c 70 20 |regexp-s|pecialp |
|00002430| 63 61 6c 6c 65 72 73 20 | 65 72 72 6f 72 20 22 72 |callers |error "r|
|00002440| 65 67 65 78 70 20 64 65 | 66 73 28 25 73 29 22 20 |egexp de|fs(%s)" |
|00002450| 72 65 67 65 78 70 2d 68 | 61 73 2d 64 65 66 69 6e |regexp-h|as-defin|
|00002460| 69 74 69 6f 6e 20 72 65 | 67 65 78 70 2d 67 65 74 |ition re|gexp-get|
|00002470| 2d 64 65 66 69 6e 69 74 | 69 6f 6e 20 22 75 6e 64 |-definit|ion "und|
|00002480| 65 66 69 6e 65 64 20 72 | 65 67 65 78 70 28 25 73 |efined r|egexp(%s|
|00002490| 29 22 5d 20 37 5d 29 0a | 28 64 65 66 61 6c 69 61 |)"] 7]).|(defalia|
|000024a0| 73 20 27 72 65 67 65 78 | 70 2d 6c 65 73 73 70 20 |s 'regex|p-lessp |
|000024b0| 23 5b 28 65 78 70 31 20 | 65 78 70 32 29 20 22 08 |#[(exp1 |exp2) ".|
|000024c0| 09 6b ab 82 c2 87 08 ac | 82 c3 87 08 a7 ab 8f 09 |.k......|........|
|000024d0| ac 82 c2 87 09 a7 ab 84 | 08 09 57 87 c3 87 08 3b |........|..W....;|
|000024e0| ab 93 09 ab 84 09 a7 ab | 82 c2 87 09 3b ab 84 08 |........|....;...|
|000024f0| 09 99 87 c3 87 08 39 ab | 97 09 ab 88 09 a7 ac 84 |......9.|........|
|00002500| 09 3b ab 82 c2 87 09 39 | ab 84 08 09 99 87 c3 87 |.;.....9|........|
|00002510| 08 3a ad 9c 09 3a ac 82 | c2 87 08 47 09 47 57 ab |.:...:..|...G.GW.|
|00002520| 82 c3 87 08 47 09 47 55 | ab 85 c4 08 09 5c 22 87 |....G.GU|.....\".|
|00002530| c2 87 22 20 5b 65 78 70 | 31 20 65 78 70 32 20 6e |.." [exp|1 exp2 n|
|00002540| 69 6c 20 74 20 72 65 67 | 65 78 70 2d 6c 65 73 73 |il t reg|exp-less|
|00002550| 70 2d 6c 69 73 74 5d 20 | 33 5d 29 0a 28 64 65 66 |p-list] |3]).(def|
|00002560| 61 6c 69 61 73 20 27 72 | 65 67 65 78 70 2d 6c 65 |alias 'r|egexp-le|
|00002570| 73 73 70 2d 6c 69 73 74 | 20 23 5b 28 65 78 70 31 |ssp-list| #[(exp1|
|00002580| 20 65 78 70 32 29 20 22 | 08 ac 82 c1 87 c2 08 40 | exp2) "|.......@|
|00002590| 0b 40 5c 22 ab 82 c4 87 | 08 40 0b 40 6b ab 87 c5 |.@\"....|.@.@k...|
|000025a0| 08 41 0b 41 5c 22 87 c1 | 87 22 20 5b 65 78 70 31 |.A.A\"..|." [exp1|
|000025b0| 20 6e 69 6c 20 72 65 67 | 65 78 70 2d 6c 65 73 73 | nil reg|exp-less|
|000025c0| 70 20 65 78 70 32 20 74 | 20 72 65 67 65 78 70 2d |p exp2 t| regexp-|
|000025d0| 6c 65 73 73 70 2d 6c 69 | 73 74 5d 20 33 5d 29 0a |lessp-li|st] 3]).|
|000025e0| 28 64 65 66 61 6c 69 61 | 73 20 27 72 65 67 65 78 |(defalia|s 'regex|
|000025f0| 70 2d 69 74 65 6d 2d 6c | 65 73 73 70 20 23 5b 28 |p-item-l|essp #[(|
|00002600| 69 74 65 6d 31 20 69 74 | 65 6d 32 29 20 22 08 09 |item1 it|em2) "..|
|00002610| 6b ab 82 c2 87 09 ac 82 | c3 87 08 3a ad 9f 09 3a |k.......|...:...:|
|00002620| ab 9a c4 08 40 09 40 5c | 22 ab 82 c3 87 08 40 09 |....@.@\|".....@.|
|00002630| 40 6b ab 87 c5 08 41 09 | 41 5c 22 87 c2 87 c2 87 |@k....A.|A\".....|
|00002640| 22 20 5b 69 74 65 6d 31 | 20 69 74 65 6d 32 20 6e |" [item1| item2 n|
|00002650| 69 6c 20 74 20 72 65 67 | 65 78 70 2d 6b 65 79 2d |il t reg|exp-key-|
|00002660| 6c 65 73 73 70 20 72 65 | 67 65 78 70 2d 69 74 65 |lessp re|gexp-ite|
|00002670| 6d 2d 6c 65 73 73 70 5d | 20 33 5d 29 0a 28 64 65 |m-lessp]| 3]).(de|
|00002680| 66 61 6c 69 61 73 20 27 | 72 65 67 65 78 70 2d 6b |falias '|regexp-k|
|00002690| 65 79 2d 6c 65 73 73 70 | 2d 6c 69 73 74 20 23 5b |ey-lessp|-list #[|
|000026a0| 28 73 79 6d 31 20 73 79 | 6d 32 20 6c 69 73 74 29 |(sym1 sy|m2 list)|
|000026b0| 20 22 c0 09 5c 6e 5c 22 | c0 0b 5c 6e 5c 22 57 87 | "..\n\"|..\n\"W.|
|000026c0| 22 20 5b 54 52 45 58 2d | 66 69 6e 64 20 73 79 6d |" [TREX-|find sym|
|000026d0| 31 20 6c 69 73 74 20 73 | 79 6d 32 5d 20 34 5d 29 |1 list s|ym2] 4])|
|000026e0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 72 65 67 65 |.(defali|as 'rege|
|000026f0| 78 70 2d 6b 65 79 2d 6c | 65 73 73 70 20 23 5b 28 |xp-key-l|essp #[(|
|00002700| 6b 65 79 31 20 6b 65 79 | 32 29 20 22 c0 09 21 ab |key1 key|2) "..!.|
|00002710| 8f c0 5c 6e 21 ab 88 c3 | 09 40 5c 6e 40 0c 23 87 |..\n!...|.@\n@.#.|
|00002720| c5 87 c6 09 21 ab a1 c6 | 5c 6e 21 ab 87 c3 09 5c |....!...|\n!....\|
|00002730| 6e 1b 0e 07 23 87 c8 5c | 6e 21 ac 8e c9 5c 6e 21 |n...#..\|n!...\n!|
|00002740| ac 89 ca 5c 6e 21 ac 84 | 5c 6e 3f ad d4 c5 87 c8 |...\n!..|\n?.....|
|00002750| 09 21 ab 9c c8 5c 6e 21 | ab 87 c3 09 5c 6e 1b 0e |.!...\n!|....\n..|
|00002760| 0b 23 87 c9 5c 6e 21 ac | 89 ca 5c 6e 21 ac 84 5c |.#..\n!.|..\n!..\|
|00002770| 6e 3f ad b3 c5 87 c9 09 | 21 ab 99 c9 5c 6e 21 ab |n?......|!...\n!.|
|00002780| 89 c3 09 40 5c 6e 40 1b | 0e 0c 23 87 ca 5c 6e 21 |...@\n@.|..#..\n!|
|00002790| ac 84 5c 6e 3f ad 95 c5 | 87 ca 09 21 ab 8d 5c 6e |..\n?...|...!..\n|
|000027a0| 3f ae 8a ca 5c 6e 21 ad | 83 09 5c 6e 57 87 cd 87 |?...\n!.|..\nW...|
|000027b0| 22 20 5b 72 65 67 65 78 | 70 2d 6b 65 79 2d 63 6c |" [regex|p-key-cl|
|000027c0| 61 73 73 30 20 6b 65 79 | 31 20 6b 65 79 32 20 72 |ass0 key|1 key2 r|
|000027d0| 65 67 65 78 70 2d 6b 65 | 79 2d 6c 65 73 73 70 2d |egexp-ke|y-lessp-|
|000027e0| 6c 69 73 74 20 2a 72 65 | 67 65 78 70 2d 6b 65 79 |list *re|gexp-key|
|000027f0| 2d 63 6c 61 73 73 30 2a | 20 74 20 72 65 67 65 78 |-class0*| t regex|
|00002800| 70 2d 6b 65 79 2d 63 6c | 61 73 73 31 20 2a 72 65 |p-key-cl|ass1 *re|
|00002810| 67 65 78 70 2d 6b 65 79 | 2d 63 6c 61 73 73 31 2a |gexp-key|-class1*|
|00002820| 20 72 65 67 65 78 70 2d | 6b 65 79 2d 63 6c 61 73 | regexp-|key-clas|
|00002830| 73 32 20 72 65 67 65 78 | 70 2d 6b 65 79 2d 63 6c |s2 regex|p-key-cl|
|00002840| 61 73 73 33 20 72 65 67 | 65 78 70 2d 6b 65 79 2d |ass3 reg|exp-key-|
|00002850| 63 6c 61 73 73 34 20 2a | 72 65 67 65 78 70 2d 6b |class4 *|regexp-k|
|00002860| 65 79 2d 63 6c 61 73 73 | 32 2a 20 2a 72 65 67 65 |ey-class|2* *rege|
|00002870| 78 70 2d 6b 65 79 2d 63 | 6c 61 73 73 33 2a 20 6e |xp-key-c|lass3* n|
|00002880| 69 6c 5d 20 34 5d 29 0a | 28 64 65 66 61 6c 69 61 |il] 4]).|(defalia|
|00002890| 73 20 27 72 65 67 65 78 | 70 2d 61 6c 69 73 74 2d |s 'regex|p-alist-|
|000028a0| 6c 65 73 73 70 20 23 5b | 28 70 61 69 72 31 20 70 |lessp #[|(pair1 p|
|000028b0| 61 69 72 32 29 20 22 c0 | 09 40 5c 6e 40 5c 22 87 |air2) ".|.@\n@\".|
|000028c0| 22 20 5b 72 65 67 65 78 | 70 2d 6b 65 79 2d 6c 65 |" [regex|p-key-le|
|000028d0| 73 73 70 20 70 61 69 72 | 31 20 70 61 69 72 32 5d |ssp pair|1 pair2]|
|000028e0| 20 33 5d 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 | 3]).(by|te-code |
|000028f0| 22 c0 c1 21 ac 82 c2 11 | c1 0b 42 13 c0 c4 21 ac |"..!....|..B...!.|
|00002900| 82 c5 14 c4 0b 42 13 c0 | c6 21 ac 83 c7 16 06 c6 |.....B..|.!......|
|00002910| 0b 42 13 c0 c8 21 ac 83 | c9 16 08 c8 0b 42 13 ca |.B...!..|.....B..|
|00002920| 09 21 88 ca 0c 21 88 ca | 1b 0e 06 21 88 ca 1b 0e |.!...!..|...!....|
|00002930| 08 21 87 22 20 5b 62 6f | 75 6e 64 70 20 2a 72 65 |.!." [bo|undp *re|
|00002940| 67 65 78 70 2d 6b 65 79 | 2d 63 6c 61 73 73 30 2a |gexp-key|-class0*|
|00002950| 20 28 53 54 41 52 54 5f | 4d 45 4d 4f 52 59 20 53 | (START_|MEMORY S|
|00002960| 54 4f 50 5f 4d 45 4d 4f | 52 59 29 20 63 75 72 72 |TOP_MEMO|RY) curr|
|00002970| 65 6e 74 2d 6c 6f 61 64 | 2d 6c 69 73 74 20 2a 72 |ent-load|-list *r|
|00002980| 65 67 65 78 70 2d 6b 65 | 79 2d 63 6c 61 73 73 31 |egexp-ke|y-class1|
|00002990| 2a 20 28 42 45 47 4c 49 | 4e 45 20 45 4e 44 4c 49 |* (BEGLI|NE ENDLI|
|000029a0| 4e 45 20 42 45 47 42 55 | 46 20 45 4e 44 42 55 46 |NE BEGBU|F ENDBUF|
|000029b0| 20 57 4f 52 44 42 45 47 | 20 57 4f 52 44 45 4e 44 | WORDBEG| WORDEND|
|000029c0| 20 57 4f 52 44 42 4f 55 | 4e 44 20 4e 4f 54 57 4f | WORDBOU|ND NOTWO|
|000029d0| 52 44 42 4f 55 4e 44 29 | 20 2a 72 65 67 65 78 70 |RDBOUND)| *regexp|
|000029e0| 2d 6b 65 79 2d 63 6c 61 | 73 73 32 2a 20 28 41 4e |-key-cla|ss2* (AN|
|000029f0| 59 43 48 41 52 20 43 48 | 41 52 53 45 54 20 43 48 |YCHAR CH|ARSET CH|
|00002a00| 41 52 53 45 54 5f 4e 4f | 54 29 20 2a 72 65 67 65 |ARSET_NO|T) *rege|
|00002a10| 78 70 2d 6b 65 79 2d 63 | 6c 61 73 73 33 2a 20 28 |xp-key-c|lass3* (|
|00002a20| 44 55 50 4c 49 43 41 54 | 45 20 53 59 4e 54 41 58 |DUPLICAT|E SYNTAX|
|00002a30| 53 50 45 43 20 4e 4f 54 | 53 59 4e 54 41 58 53 50 |SPEC NOT|SYNTAXSP|
|00002a40| 45 43 20 43 41 54 45 47 | 4f 52 59 53 50 45 43 20 |EC CATEG|ORYSPEC |
|00002a50| 4e 4f 54 43 41 54 45 47 | 4f 52 59 53 50 45 43 29 |NOTCATEG|ORYSPEC)|
|00002a60| 20 72 65 67 65 78 70 2d | 64 65 66 69 6e 65 2d 73 | regexp-|define-s|
|00002a70| 70 65 63 69 61 6c 73 5d | 20 32 29 0a 28 64 65 66 |pecials]| 2).(def|
|00002a80| 61 6c 69 61 73 20 27 72 | 65 67 65 78 70 2d 6b 65 |alias 'r|egexp-ke|
|00002a90| 79 2d 63 6c 61 73 73 30 | 20 23 5b 28 6b 65 79 29 |y-class0| #[(key)|
|00002aa0| 20 22 08 3a ad 85 c1 08 | 40 5c 6e 5c 22 87 22 20 | ".:....|@\n\"." |
|00002ab0| 5b 6b 65 79 20 54 52 45 | 58 2d 6d 65 6d 65 71 75 |[key TRE|X-memequ|
|00002ac0| 61 6c 20 2a 72 65 67 65 | 78 70 2d 6b 65 79 2d 63 |al *rege|xp-key-c|
|00002ad0| 6c 61 73 73 30 2a 5d 20 | 33 5d 29 0a 28 64 65 66 |lass0*] |3]).(def|
|00002ae0| 61 6c 69 61 73 20 27 72 | 65 67 65 78 70 2d 6b 65 |alias 'r|egexp-ke|
|00002af0| 79 2d 63 6c 61 73 73 31 | 20 23 5b 28 6b 65 79 29 |y-class1| #[(key)|
|00002b00| 20 22 08 3a ad 85 c1 08 | 40 5c 6e 5c 22 87 22 20 | ".:....|@\n\"." |
|00002b10| 5b 6b 65 79 20 54 52 45 | 58 2d 6d 65 6d 65 71 75 |[key TRE|X-memequ|
|00002b20| 61 6c 20 2a 72 65 67 65 | 78 70 2d 6b 65 79 2d 63 |al *rege|xp-key-c|
|00002b30| 6c 61 73 73 31 2a 5d 20 | 33 5d 29 0a 28 64 65 66 |lass1*] |3]).(def|
|00002b40| 61 6c 69 61 73 20 27 72 | 65 67 65 78 70 2d 6b 65 |alias 'r|egexp-ke|
|00002b50| 79 2d 63 6c 61 73 73 32 | 20 23 5b 28 6b 65 79 29 |y-class2| #[(key)|
|00002b60| 20 22 08 3a ad 85 c1 08 | 40 5c 6e 5c 22 87 22 20 | ".:....|@\n\"." |
|00002b70| 5b 6b 65 79 20 54 52 45 | 58 2d 6d 65 6d 65 71 75 |[key TRE|X-memequ|
|00002b80| 61 6c 20 2a 72 65 67 65 | 78 70 2d 6b 65 79 2d 63 |al *rege|xp-key-c|
|00002b90| 6c 61 73 73 32 2a 5d 20 | 33 5d 29 0a 28 64 65 66 |lass2*] |3]).(def|
|00002ba0| 61 6c 69 61 73 20 27 72 | 65 67 65 78 70 2d 6b 65 |alias 'r|egexp-ke|
|00002bb0| 79 2d 63 6c 61 73 73 33 | 20 23 5b 28 6b 65 79 29 |y-class3| #[(key)|
|00002bc0| 20 22 08 3a ad 85 c1 08 | 40 5c 6e 5c 22 87 22 20 | ".:....|@\n\"." |
|00002bd0| 5b 6b 65 79 20 54 52 45 | 58 2d 6d 65 6d 65 71 75 |[key TRE|X-memequ|
|00002be0| 61 6c 20 2a 72 65 67 65 | 78 70 2d 6b 65 79 2d 63 |al *rege|xp-key-c|
|00002bf0| 6c 61 73 73 33 2a 5d 20 | 33 5d 29 0a 28 64 65 66 |lass3*] |3]).(def|
|00002c00| 61 6c 69 61 73 20 27 72 | 65 67 65 78 70 2d 6b 65 |alias 'r|egexp-ke|
|00002c10| 79 2d 63 6c 61 73 73 34 | 20 23 5b 28 6b 65 79 29 |y-class4| #[(key)|
|00002c20| 20 22 08 3a ab 86 08 40 | c1 61 ae 86 08 a7 ae 82 | ".:...@|.a......|
|00002c30| 08 39 87 22 20 5b 6b 65 | 79 20 3a 72 61 6e 67 65 |.9." [ke|y :range|
|00002c40| 5d 20 32 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |] 2]).(d|efalias |
|00002c50| 27 72 65 67 65 78 70 2d | 69 74 65 6d 2d 6b 65 79 |'regexp-|item-key|
|00002c60| 2d 63 6c 61 73 73 30 20 | 23 5b 28 69 74 65 6d 29 |-class0 |#[(item)|
|00002c70| 20 22 c0 09 40 21 87 22 | 20 5b 72 65 67 65 78 70 | "..@!."| [regexp|
|00002c80| 2d 6b 65 79 2d 63 6c 61 | 73 73 30 20 69 74 65 6d |-key-cla|ss0 item|
|00002c90| 5d 20 32 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |] 2]).(d|efalias |
|00002ca0| 27 72 65 67 65 78 70 2d | 69 74 65 6d 2d 6b 65 79 |'regexp-|item-key|
|00002cb0| 2d 63 6c 61 73 73 31 20 | 23 5b 28 69 74 65 6d 29 |-class1 |#[(item)|
|00002cc0| 20 22 c0 09 40 21 87 22 | 20 5b 72 65 67 65 78 70 | "..@!."| [regexp|
|00002cd0| 2d 6b 65 79 2d 63 6c 61 | 73 73 31 20 69 74 65 6d |-key-cla|ss1 item|
|00002ce0| 5d 20 32 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |] 2]).(d|efalias |
|00002cf0| 27 72 65 67 65 78 70 2d | 69 74 65 6d 2d 6b 65 79 |'regexp-|item-key|
|00002d00| 2d 63 6c 61 73 73 32 20 | 23 5b 28 69 74 65 6d 29 |-class2 |#[(item)|
|00002d10| 20 22 c0 09 40 21 87 22 | 20 5b 72 65 67 65 78 70 | "..@!."| [regexp|
|00002d20| 2d 6b 65 79 2d 63 6c 61 | 73 73 32 20 69 74 65 6d |-key-cla|ss2 item|
|00002d30| 5d 20 32 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |] 2]).(d|efalias |
|00002d40| 27 72 65 67 65 78 70 2d | 69 74 65 6d 2d 6b 65 79 |'regexp-|item-key|
|00002d50| 2d 63 6c 61 73 73 33 20 | 23 5b 28 69 74 65 6d 29 |-class3 |#[(item)|
|00002d60| 20 22 c0 09 40 21 87 22 | 20 5b 72 65 67 65 78 70 | "..@!."| [regexp|
|00002d70| 2d 6b 65 79 2d 63 6c 61 | 73 73 33 20 69 74 65 6d |-key-cla|ss3 item|
|00002d80| 5d 20 32 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |] 2]).(d|efalias |
|00002d90| 27 72 65 67 65 78 70 2d | 69 74 65 6d 2d 6b 65 79 |'regexp-|item-key|
|00002da0| 2d 63 6c 61 73 73 34 20 | 23 5b 28 69 74 65 6d 29 |-class4 |#[(item)|
|00002db0| 20 22 c0 09 40 21 87 22 | 20 5b 72 65 67 65 78 70 | "..@!."| [regexp|
|00002dc0| 2d 6b 65 79 2d 63 6c 61 | 73 73 34 20 69 74 65 6d |-key-cla|ss4 item|
|00002dd0| 5d 20 32 5d 29 0a 28 62 | 79 74 65 2d 63 6f 64 65 |] 2]).(b|yte-code|
|00002de0| 20 22 c0 c1 21 ac 82 c2 | 11 c1 0b 42 13 c0 c4 21 | "..!...|...B...!|
|00002df0| ac 82 c5 14 c4 0b 42 13 | c5 87 22 20 5b 62 6f 75 |......B.|.." [bou|
|00002e00| 6e 64 70 20 2a 72 65 67 | 65 78 70 2d 73 6f 72 74 |ndp *reg|exp-sort|
|00002e10| 2d 66 6c 61 67 2a 20 74 | 20 63 75 72 72 65 6e 74 |-flag* t| current|
|00002e20| 2d 6c 6f 61 64 2d 6c 69 | 73 74 20 2a 72 65 67 65 |-load-li|st *rege|
|00002e30| 78 70 2d 64 65 62 75 67 | 2a 20 6e 69 6c 5d 20 32 |xp-debug|* nil] 2|
|00002e40| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 72 65 67 |).(defal|ias 'reg|
|00002e50| 65 78 70 2d 73 6f 72 74 | 20 23 5b 28 6c 69 73 74 |exp-sort| #[(list|
|00002e60| 20 70 72 65 64 29 20 22 | 08 ab a2 09 ab 89 c2 c3 | pred) "|........|
|00002e70| c4 0d 1b 0e 06 23 21 88 | c7 0d 1b 0e 06 5c 22 1e |.....#!.|.....\".|
|00002e80| 08 09 ab 88 c2 c3 c9 1b | 0e 08 5c 22 21 88 1b 0e |........|..\"!...|
|00002e90| 08 29 87 0d 87 22 20 5b | 2a 72 65 67 65 78 70 2d |.)..." [|*regexp-|
|00002ea0| 73 6f 72 74 2d 66 6c 61 | 67 2a 20 2a 72 65 67 65 |sort-fla|g* *rege|
|00002eb0| 78 70 2d 64 65 62 75 67 | 2a 20 70 72 69 6e 63 20 |xp-debug|* princ |
|00002ec0| 66 6f 72 6d 61 74 20 22 | 28 72 65 67 65 78 70 2d |format "|(regexp-|
|00002ed0| 73 6f 72 74 20 25 73 20 | 25 73 29 5c 6e 22 20 6c |sort %s |%s)\n" l|
|00002ee0| 69 73 74 20 70 72 65 64 | 20 73 6f 72 74 20 72 65 |ist pred| sort re|
|00002ef0| 73 75 6c 74 20 22 3c 3d | 3d 20 25 73 5c 6e 22 5d |sult "<=|= %s\n"]|
|00002f00| 20 35 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 | 5]).(de|falias '|
|00002f10| 72 65 67 65 78 70 2d 69 | 6e 76 65 72 73 65 20 23 |regexp-i|nverse #|
|00002f20| 5b 28 72 65 67 65 78 70 | 29 20 22 08 3a ab e9 08 |[(regexp|) ".:...|
|00002f30| 40 89 19 c2 61 ab 8f c2 | 08 41 40 c3 08 38 c4 c5 |@...a...|.A@..8..|
|00002f40| 08 38 21 46 aa d0 09 c6 | 61 ab 83 08 aa c8 09 c7 |.8!F....|a.......|
|00002f50| 61 ab 89 c7 c8 c4 08 41 | 5c 22 42 aa ba 09 c9 61 |a......A|\"B....a|
|00002f60| ab 8a c9 c8 c4 08 41 5c | 22 9f 42 aa ab 09 ca 61 |......A\|".B....a|
|00002f70| ab 89 ca c4 08 41 40 21 | 44 aa 9d 09 cb 61 ab 89 |.....A@!|D....a..|
|00002f80| cb c4 08 41 40 21 44 aa | 8f 09 cc 61 ab 89 cc c4 |...A@!D.|...a....|
|00002f90| 08 41 40 21 44 aa 81 08 | 29 87 08 3b ab 84 cd 08 |.A@!D...|)..;....|
|00002fa0| 21 87 08 87 22 20 5b 72 | 65 67 65 78 70 20 6f 70 |!..." [r|egexp op|
|00002fb0| 20 3a 6d 61 72 6b 20 32 | 20 72 65 67 65 78 70 2d | :mark 2| regexp-|
|00002fc0| 69 6e 76 65 72 73 65 20 | 33 20 44 55 50 4c 49 43 |inverse |3 DUPLIC|
|00002fd0| 41 54 45 20 3a 6f 72 20 | 6d 61 70 63 61 72 20 3a |ATE :or |mapcar :|
|00002fe0| 73 65 71 20 3a 6f 70 74 | 69 6f 6e 61 6c 20 3a 73 |seq :opt|ional :s|
|00002ff0| 74 61 72 20 3a 70 6c 75 | 73 20 54 52 45 58 2d 73 |tar :plu|s TREX-s|
|00003000| 74 72 69 6e 67 2d 72 65 | 76 65 72 73 65 5d 20 37 |tring-re|verse] 7|
|00003010| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 72 65 |]).(defa|lias 're|
|00003020| 67 65 78 70 2d 72 65 6d | 6f 76 65 2d 69 6e 66 69 |gexp-rem|ove-infi|
|00003030| 6e 69 74 65 2d 6c 6f 6f | 70 20 23 5b 28 72 65 67 |nite-loo|p #[(reg|
|00003040| 65 78 70 29 20 22 08 3a | ab ac 08 40 89 19 c2 61 |exp) ".:|...@...a|
|00003050| ae a2 09 c3 61 ab 83 08 | aa 9a 09 c4 61 ae 95 09 |....a...|....a...|
|00003060| c5 61 ae 90 09 c6 61 ae | 8b 09 c7 61 ae 86 09 c8 |.a....a.|...a....|
|00003070| 61 ae 81 08 29 87 08 3b | ae 85 08 3f ae 81 08 87 |a...)..;|...?....|
|00003080| 22 20 5b 72 65 67 65 78 | 70 20 6f 70 20 3a 6d 61 |" [regex|p op :ma|
|00003090| 72 6b 20 44 55 50 4c 49 | 43 41 54 45 20 3a 6f 72 |rk DUPLI|CATE :or|
|000030a0| 20 3a 73 65 71 20 3a 6f | 70 74 69 6f 6e 61 6c 20 | :seq :o|ptional |
|000030b0| 3a 73 74 61 72 20 3a 70 | 6c 75 73 5d 20 33 5d 29 |:star :p|lus] 3])|
|000030c0| 0a 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 21 |.(byte-c|ode "..!|
|000030d0| ac 82 c2 11 c1 0b 42 13 | c0 c4 21 ac 82 c2 14 c4 |......B.|..!.....|
|000030e0| 0b 42 13 c2 87 22 20 5b | 62 6f 75 6e 64 70 20 2a |.B..." [|boundp *|
|000030f0| 72 65 67 65 78 70 2d 72 | 65 67 69 73 74 65 72 2d |regexp-r|egister-|
|00003100| 64 65 66 69 6e 69 74 69 | 6f 6e 73 2a 20 6e 69 6c |definiti|ons* nil|
|00003110| 20 63 75 72 72 65 6e 74 | 2d 6c 6f 61 64 2d 6c 69 | current|-load-li|
|00003120| 73 74 20 2a 72 65 67 65 | 78 70 2d 72 65 67 69 73 |st *rege|xp-regis|
|00003130| 74 65 72 73 2a 5d 20 32 | 29 0a 28 64 65 66 61 6c |ters*] 2|).(defal|
|00003140| 69 61 73 20 27 72 65 67 | 65 78 70 2d 72 65 66 6f |ias 'reg|exp-refo|
|00003150| 72 6d 2d 64 75 70 6c 69 | 63 61 74 69 6f 6e 20 23 |rm-dupli|cation #|
|00003160| 5b 28 72 65 67 65 78 70 | 29 20 22 c0 19 c2 0b 21 |[(regexp|) "....!|
|00003170| 1c c0 1d c6 0c 21 2b 87 | 22 20 5b 6e 69 6c 20 2a |.....!+.|" [nil *|
|00003180| 72 65 67 65 78 70 2d 72 | 65 67 69 73 74 65 72 2d |regexp-r|egister-|
|00003190| 64 65 66 69 6e 69 74 69 | 6f 6e 73 2a 20 72 65 67 |definiti|ons* reg|
|000031a0| 65 78 70 2d 72 65 66 6f | 72 6d 2d 64 75 70 6c 69 |exp-refo|rm-dupli|
|000031b0| 63 61 74 69 6f 6e 2d 31 | 20 72 65 67 65 78 70 20 |cation-1| regexp |
|000031c0| 6e 65 77 72 65 67 65 78 | 70 20 2a 72 65 67 65 78 |newregex|p *regex|
|000031d0| 70 2d 72 65 67 69 73 74 | 65 72 73 2a 20 72 65 67 |p-regist|ers* reg|
|000031e0| 65 78 70 2d 72 65 66 6f | 72 6d 2d 64 75 70 6c 69 |exp-refo|rm-dupli|
|000031f0| 63 61 74 69 6f 6e 2d 32 | 5d 20 32 5d 29 0a 28 64 |cation-2|] 2]).(d|
|00003200| 65 66 61 6c 69 61 73 20 | 27 72 65 67 65 78 70 2d |efalias |'regexp-|
|00003210| 72 65 66 6f 72 6d 2d 64 | 75 70 6c 69 63 61 74 69 |reform-d|uplicati|
|00003220| 6f 6e 2d 31 20 23 5b 28 | 72 65 67 65 78 70 29 20 |on-1 #[(|regexp) |
|00003230| 22 08 3a ac 82 08 87 08 | 40 89 19 c2 61 ab 89 c2 |".:.....|@...a...|
|00003240| c3 c4 08 41 5c 22 42 aa | b1 09 c5 61 ab 89 c5 c3 |...A\"B.|...a....|
|00003250| c4 08 41 5c 22 42 aa a3 | c6 09 c7 5c 22 ab 89 09 |..A\"B..|...\"...|
|00003260| c4 08 41 40 21 44 aa 94 | 09 c8 61 ab 8e 08 41 1b |..A@!D..|..a...A.|
|00003270| 0e 09 42 16 09 ca 08 41 | 40 44 aa 81 08 29 87 22 |..B....A|@D...)."|
|00003280| 20 5b 72 65 67 65 78 70 | 20 6d 6f 70 20 3a 6f 72 | [regexp| mop :or|
|00003290| 20 6d 61 70 63 61 72 20 | 72 65 67 65 78 70 2d 72 | mapcar |regexp-r|
|000032a0| 65 66 6f 72 6d 2d 64 75 | 70 6c 69 63 61 74 69 6f |eform-du|plicatio|
|000032b0| 6e 2d 31 20 3a 73 65 71 | 20 54 52 45 58 2d 6d 65 |n-1 :seq| TREX-me|
|000032c0| 6d 65 71 75 61 6c 20 28 | 3a 73 74 61 72 20 3a 70 |mequal (|:star :p|
|000032d0| 6c 75 73 20 3a 6f 70 74 | 69 6f 6e 61 6c 29 20 3a |lus :opt|ional) :|
|000032e0| 6d 61 72 6b 20 2a 72 65 | 67 65 78 70 2d 72 65 67 |mark *re|gexp-reg|
|000032f0| 69 73 74 65 72 2d 64 65 | 66 69 6e 69 74 69 6f 6e |ister-de|finition|
|00003300| 73 2a 20 44 55 50 4c 49 | 43 41 54 45 5d 20 35 5d |s* DUPLI|CATE] 5]|
|00003310| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 72 65 67 |).(defal|ias 'reg|
|00003320| 65 78 70 2d 72 65 66 6f | 72 6d 2d 64 75 70 6c 69 |exp-refo|rm-dupli|
|00003330| 63 61 74 69 6f 6e 2d 32 | 20 23 5b 28 72 65 67 65 |cation-2| #[(rege|
|00003340| 78 70 29 20 22 08 3a ac | 82 08 87 08 40 89 19 c2 |xp) ".:.|....@...|
|00003350| 61 ab b5 0b c4 89 08 41 | 1d 1e 06 1e 07 1e 08 0d |a......A|........|
|00003360| ab 9b 1b 0e 08 13 c9 0d | 40 21 1b 0e 06 42 16 06 |........|@!...B..|
|00003370| ca cb 0b 1b 0e 07 5c 22 | 21 16 07 0d 41 89 15 ac |......\"|!...A...|
|00003380| 65 1b 0e 07 13 c2 1b 0e | 06 9f 2c 42 aa ce 09 cc |e.......|..,B....|
|00003390| 61 ab 89 cc cd c9 08 41 | 5c 22 42 aa c0 ce 09 cf |a......A|\"B.....|
|000033a0| 5c 22 ab 89 09 c9 08 41 | 40 21 44 aa b1 09 d0 61 |\".....A|@!D....a|
|000033b0| ab ab 08 41 40 1e 11 ce | 1b 0e 11 0b 5c 22 ab 83 |...A@...|....\"..|
|000033c0| 08 aa 99 d2 1b 0e 11 1b | 0e 13 5c 22 1e 14 1b 0e |........|..\"....|
|000033d0| 11 0b 42 13 1b 0e 14 ab | 86 d5 1b 0e 14 42 aa 81 |..B.....|.....B..|
|000033e0| 08 29 29 aa 81 08 29 87 | 22 20 5b 72 65 67 65 78 |.))...).|" [regex|
|000033f0| 70 20 6d 6f 70 20 3a 6f | 72 20 2a 72 65 67 65 78 |p mop :o|r *regex|
|00003400| 70 2d 72 65 67 69 73 74 | 65 72 73 2a 20 6e 69 6c |p-regist|ers* nil|
|00003410| 20 6f 72 2d 62 6f 64 79 | 20 72 65 73 75 6c 74 20 | or-body| result |
|00003420| 6e 65 77 72 65 67 69 73 | 74 65 72 73 20 72 65 67 |newregis|ters reg|
|00003430| 69 73 74 65 72 73 20 72 | 65 67 65 78 70 2d 72 65 |isters r|egexp-re|
|00003440| 66 6f 72 6d 2d 64 75 70 | 6c 69 63 61 74 69 6f 6e |form-dup|lication|
|00003450| 2d 32 20 54 52 45 58 2d | 64 65 6c 65 74 65 2d 64 |-2 TREX-|delete-d|
|00003460| 75 70 6c 69 63 61 74 65 | 20 61 70 70 65 6e 64 20 |uplicate| append |
|00003470| 3a 73 65 71 20 6d 61 70 | 63 61 72 20 54 52 45 58 |:seq map|car TREX|
|00003480| 2d 6d 65 6d 65 71 75 61 | 6c 20 28 3a 73 74 61 72 |-memequa|l (:star|
|00003490| 20 3a 70 6c 75 73 20 3a | 6f 70 74 69 6f 6e 61 6c | :plus :|optional|
|000034a0| 29 20 44 55 50 4c 49 43 | 41 54 45 20 72 65 67 6e |) DUPLIC|ATE regn|
|000034b0| 6f 20 61 73 73 6f 63 20 | 2a 72 65 67 65 78 70 2d |o assoc |*regexp-|
|000034c0| 72 65 67 69 73 74 65 72 | 2d 64 65 66 69 6e 69 74 |register|-definit|
|000034d0| 69 6f 6e 73 2a 20 64 65 | 66 20 3a 6d 61 72 6b 5d |ions* de|f :mark]|
|000034e0| 20 35 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 | 5]).(de|falias '|
|000034f0| 72 65 67 65 78 70 2d 65 | 78 70 61 6e 64 2d 72 65 |regexp-e|xpand-re|
|00003500| 67 65 78 70 20 23 5b 28 | 72 65 67 65 78 70 29 20 |gexp #[(|regexp) |
|00003510| 22 08 3a 83 ab 00 08 40 | 89 19 c2 61 ab 87 c3 08 |".:....@|...a....|
|00003520| 41 21 82 a9 00 09 c4 61 | ab 87 c5 08 41 21 82 a9 |A!.....a|....A!..|
|00003530| 00 09 c6 61 ab 99 08 41 | 40 89 1e 07 ab 8c c8 c5 |...a...A|@.......|
|00003540| 1b 0e 07 08 44 21 c9 43 | 5c 22 aa 82 c9 43 29 aa |....D!.C|\"...C).|
|00003550| eb 09 ca 61 ab 98 08 41 | 40 89 1e 07 ab 8b c5 1b |...a...A|@.......|
|00003560| 0e 07 c6 1b 0e 07 44 44 | 21 aa 82 c9 43 29 aa ce |......DD|!...C)..|
|00003570| 09 cb 61 ab 8b c8 cc 08 | 41 40 21 c9 43 5c 22 aa |..a.....|A@!.C\".|
|00003580| be 09 cd 61 ab b6 08 41 | 40 ce 08 38 cf 08 38 1e |...a...A|@..8..8.|
|00003590| 07 1e 10 1e 11 1b 0e 07 | ab 92 d2 1b 0e 11 1b 0e |........|........|
|000035a0| 10 45 1b 0e 07 d3 1b 0e | 11 1b 0e 10 45 45 43 aa |.E......|....EEC.|
|000035b0| 8e d2 1b 0e 11 1b 0e 10 | 45 d3 1b 0e 11 1b 0e 10 |........|E.......|
|000035c0| 45 44 43 2b aa 83 08 43 | 43 29 87 08 ac 83 c9 43 |EDC+...C|C).....C|
|000035d0| 87 08 39 ab 84 08 43 43 | 87 08 a7 ab 84 08 43 43 |..9...CC|......CC|
|000035e0| 87 08 3b ab a7 c9 1e 14 | d5 08 47 1e 16 89 1e 17 |..;.....|..G.....|
|000035f0| 1b 0e 16 57 ab 91 08 1b | 0e 17 48 1b 0e 14 42 16 |...W....|..H...B.|
|00003600| 14 1b 0e 17 54 89 16 17 | aa 6a 1b 0e 14 9f 2b 43 |....T...|.j....+C|
|00003610| 87 08 43 43 87 22 20 5b | 72 65 67 65 78 70 20 6d |..CC." [|regexp m|
|00003620| 6f 70 20 3a 6f 72 20 72 | 65 67 65 78 70 2d 65 78 |op :or r|egexp-ex|
|00003630| 70 61 6e 64 2d 6f 72 20 | 3a 73 65 71 20 72 65 67 |pand-or |:seq reg|
|00003640| 65 78 70 2d 65 78 70 61 | 6e 64 2d 73 65 71 20 3a |exp-expa|nd-seq :|
|00003650| 73 74 61 72 20 61 72 67 | 20 61 70 70 65 6e 64 20 |star arg| append |
|00003660| 6e 69 6c 20 3a 70 6c 75 | 73 20 3a 6f 70 74 69 6f |nil :plu|s :optio|
|00003670| 6e 61 6c 20 72 65 67 65 | 78 70 2d 65 78 70 61 6e |nal rege|xp-expan|
|00003680| 64 2d 72 65 67 65 78 70 | 20 3a 6d 61 72 6b 20 32 |d-regexp| :mark 2|
|00003690| 20 33 20 67 72 6f 75 70 | 73 20 72 65 67 6e 6f 20 | 3 group|s regno |
|000036a0| 53 54 41 52 54 5f 4d 45 | 4d 4f 52 59 20 53 54 4f |START_ME|MORY STO|
|000036b0| 50 5f 4d 45 4d 4f 52 59 | 20 72 65 73 75 6c 74 20 |P_MEMORY| result |
|000036c0| 30 20 6d 61 78 20 69 5d | 20 36 5d 29 0a 28 64 65 |0 max i]| 6]).(de|
|000036d0| 66 61 6c 69 61 73 20 27 | 63 68 61 72 73 65 74 2d |falias '|charset-|
|000036e0| 6d 65 6d 62 65 72 2d 65 | 6c 74 20 23 5b 28 63 68 |member-e|lt #[(ch|
|000036f0| 20 65 6c 74 29 20 22 08 | 3a ab 93 08 40 c1 61 ad | elt) ".|:...@.a.|
|00003700| 90 5c 6e 08 41 40 58 ad | 85 c3 08 38 5c 6e 58 87 |.\n.A@X.|...8\nX.|
|00003710| 5c 6e 08 6b 87 22 20 5b | 65 6c 74 20 3a 72 61 6e |\n.k." [|elt :ran|
|00003720| 67 65 20 63 68 20 32 5d | 20 32 5d 29 0a 28 64 65 |ge ch 2]| 2]).(de|
|00003730| 66 61 6c 69 61 73 20 27 | 63 68 61 72 73 65 74 2d |falias '|charset-|
|00003740| 6d 65 6d 62 65 72 2d 50 | 20 23 5b 28 63 68 20 6f |member-P| #[(ch o|
|00003750| 72 2d 66 6f 72 6d 29 20 | 22 c0 09 41 1a 1b 1b 5c |r-form) |"..A...\|
|00003760| 6e ab 92 0b ac 8f c4 0d | 5c 6e 40 5c 22 ab 82 c6 |n.......|\n@\"...|
|00003770| 13 5c 6e 41 89 12 ac 6e | 0b 2a 87 22 20 5b 6e 69 |.\nA...n|.*." [ni|
|00003780| 6c 20 6f 72 2d 66 6f 72 | 6d 20 6c 20 72 65 73 75 |l or-for|m l resu|
|00003790| 6c 74 20 63 68 61 72 73 | 65 74 2d 6d 65 6d 62 65 |lt chars|et-membe|
|000037a0| 72 73 68 69 70 2d 65 6c | 74 20 63 68 20 74 5d 20 |rship-el|t ch t] |
|000037b0| 34 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 63 |4]).(def|alias 'c|
|000037c0| 68 61 72 73 65 74 2d 6d | 65 6d 62 65 72 2d 4e 20 |harset-m|ember-N |
|000037d0| 23 5b 28 63 68 20 6e 6f | 72 2d 66 6f 72 6d 29 20 |#[(ch no|r-form) |
|000037e0| 22 c0 09 5c 6e 5c 22 3f | 87 22 20 5b 63 68 61 72 |"..\n\"?|." [char|
|000037f0| 73 65 74 2d 6d 65 6d 62 | 65 72 2b 20 63 68 20 6e |set-memb|er+ ch n|
|00003800| 6f 72 2d 66 6f 72 6d 5d | 20 33 5d 29 0a 28 64 65 |or-form]| 3]).(de|
|00003810| 66 61 6c 69 61 73 20 27 | 63 68 61 72 73 65 74 2d |falias '|charset-|
|00003820| 6e 6f 72 70 20 23 5b 28 | 66 6f 72 6d 29 20 22 08 |norp #[(|form) ".|
|00003830| 3a ad 84 08 40 c1 61 87 | 22 20 5b 66 6f 72 6d 20 |:...@.a.|" [form |
|00003840| 43 48 41 52 53 45 54 5f | 4e 4f 54 5d 20 32 5d 29 |CHARSET_|NOT] 2])|
|00003850| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 63 68 61 72 |.(defali|as 'char|
|00003860| 73 65 74 2d 61 6e 64 20 | 23 5b 28 66 6f 72 6d 31 |set-and |#[(form1|
|00003870| 20 66 6f 72 6d 32 29 20 | 22 c0 09 21 ab 93 c0 5c | form2) |"..!...\|
|00003880| 6e 21 ab 89 c3 c4 09 41 | 5c 6e 41 5c 22 42 87 c5 |n!.....A|\nA\"B..|
|00003890| 5c 6e 09 5c 22 87 c0 5c | 6e 21 ab 85 c6 09 5c 6e |\n.\"..\|n!....\n|
|000038a0| 5c 22 87 c7 09 5c 6e 5c | 22 87 22 20 5b 63 68 61 |\"...\n\|"." [cha|
|000038b0| 72 73 65 74 2d 6e 6f 72 | 70 20 66 6f 72 6d 31 20 |rset-nor|p form1 |
|000038c0| 66 6f 72 6d 32 20 3a 6f | 72 20 63 68 61 72 73 65 |form2 :o|r charse|
|000038d0| 74 2d 6f 72 2d 50 50 20 | 63 68 61 72 73 65 74 2d |t-or-PP |charset-|
|000038e0| 61 6e 64 2d 50 4e 20 63 | 68 61 72 73 65 74 2d 61 |and-PN c|harset-a|
|000038f0| 6e 64 2d 70 6e 20 63 68 | 61 72 73 65 74 2d 61 6e |nd-pn ch|arset-an|
|00003900| 64 2d 50 50 5d 20 34 5d | 29 0a 28 64 65 66 61 6c |d-PP] 4]|).(defal|
|00003910| 69 61 73 20 27 63 68 61 | 72 73 65 74 2d 6f 72 2d |ias 'cha|rset-or-|
|00003920| 50 50 20 23 5b 28 6f 72 | 2d 62 6f 64 79 31 20 6f |PP #[(or|-body1 o|
|00003930| 72 2d 62 6f 64 79 32 29 | 20 22 c0 09 5c 6e 5c 22 |r-body2)| "..\n\"|
|00003940| 87 22 20 5b 61 70 70 65 | 6e 64 20 6f 72 2d 62 6f |." [appe|nd or-bo|
|00003950| 64 79 31 20 6f 72 2d 62 | 6f 64 79 32 5d 20 33 5d |dy1 or-b|ody2] 3]|
|00003960| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 72 65 67 |).(defal|ias 'reg|
|00003970| 65 78 70 2d 63 68 61 72 | 73 65 74 2d 74 6f 2d 72 |exp-char|set-to-r|
|00003980| 65 67 65 78 70 20 23 5b | 28 63 68 61 72 73 65 74 |egexp #[|(charset|
|00003990| 73 29 20 22 c0 c1 c2 0b | 5c 22 42 87 22 20 5b 3a |s) "....|\"B." [:|
|000039a0| 6f 72 20 6d 61 70 63 61 | 72 20 72 65 67 65 78 70 |or mapca|r regexp|
|000039b0| 2d 63 68 61 72 73 65 74 | 2d 74 6f 2d 72 65 67 65 |-charset|-to-rege|
|000039c0| 78 70 2a 20 63 68 61 72 | 73 65 74 73 5d 20 34 5d |xp* char|sets] 4]|
|000039d0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 72 65 67 |).(defal|ias 'reg|
|000039e0| 65 78 70 2d 63 68 61 72 | 73 65 74 2d 74 6f 2d 72 |exp-char|set-to-r|
|000039f0| 65 67 65 78 70 2a 20 23 | 5b 28 65 6c 6d 29 20 22 |egexp* #|[(elm) "|
|00003a00| 08 3a ab 89 c1 08 41 40 | c2 08 38 5c 22 87 08 3b |.:....A@|..8\"..;|
|00003a10| ab 86 c3 c4 08 21 42 87 | 08 87 22 20 5b 65 6c 6d |.....!B.|.." [elm|
|00003a20| 20 72 65 67 65 78 70 2d | 63 68 61 72 73 65 74 2d | regexp-|charset-|
|00003a30| 72 61 6e 67 65 2d 74 6f | 2d 72 65 67 65 78 70 20 |range-to|-regexp |
|00003a40| 32 20 3a 73 65 71 20 54 | 52 45 58 2d 73 74 72 69 |2 :seq T|REX-stri|
|00003a50| 6e 67 2d 74 6f 2d 6c 69 | 73 74 5d 20 34 5d 29 0a |ng-to-li|st] 4]).|
|00003a60| 28 64 65 66 61 6c 69 61 | 73 20 27 72 65 67 65 78 |(defalia|s 'regex|
|00003a70| 70 2d 63 68 61 72 73 65 | 74 2d 72 61 6e 67 65 2d |p-charse|t-range-|
|00003a80| 74 6f 2d 72 65 67 65 78 | 70 20 23 5b 28 73 74 72 |to-regex|p #[(str|
|00003a90| 31 20 73 74 72 32 29 20 | 22 c0 c1 5c 6e 21 c1 0b |1 str2) |"..\n!..|
|00003aa0| 21 5c 22 89 1c 47 c5 55 | ab 84 0c 40 aa 83 c6 0c |!\"..G.U|...@....|
|00003ab0| 42 29 87 22 20 5b 72 65 | 67 65 78 70 2d 63 68 61 |B)." [re|gexp-cha|
|00003ac0| 72 73 65 74 2d 72 61 6e | 67 65 2d 74 6f 2d 72 65 |rset-ran|ge-to-re|
|00003ad0| 67 65 78 70 2a 20 54 52 | 45 58 2d 73 74 72 69 6e |gexp* TR|EX-strin|
|00003ae0| 67 2d 74 6f 2d 6c 69 73 | 74 20 73 74 72 31 20 73 |g-to-lis|t str1 s|
|00003af0| 74 72 32 20 72 65 73 75 | 6c 74 20 31 20 3a 73 65 |tr2 resu|lt 1 :se|
|00003b00| 71 5d 20 35 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |q] 5]).(|defalias|
|00003b10| 20 27 72 65 67 65 78 70 | 2d 63 68 61 72 73 65 74 | 'regexp|-charset|
|00003b20| 2d 72 61 6e 67 65 2d 74 | 6f 2d 72 65 67 65 78 70 |-range-t|o-regexp|
|00003b30| 2a 20 23 5b 28 6e 75 6d | 73 31 20 6e 75 6d 73 32 |* #[(num|s1 nums2|
|00003b40| 29 20 22 08 41 47 08 40 | 09 40 1a 1b 1b 89 1c c5 |) ".AG.@|.@......|
|00003b50| 55 ab 90 0b 5c 6e 55 ab | 84 0b 43 aa eb c6 0b 5c |U...\nU.|..C....\|
|00003b60| 6e 5c 22 43 aa e4 0b 5c | 6e 55 ab 8a 0b c7 08 41 |n\"C...\|nU.....A|
|00003b70| 09 41 5c 22 42 aa d5 0b | c7 08 41 c8 08 41 47 c9 |.A\"B...|..A..AG.|
|00003b80| 5c 22 5c 22 42 0b 54 5c | 6e 53 58 ad 91 c6 0b 54 |\"\"B.T\|nSX....T|
|00003b90| 5c 6e 53 5c 22 c7 c8 0c | ca 5c 22 c8 0c c9 5c 22 |\nS\"...|.\"...\"|
|00003ba0| 5c 22 42 5c 6e c7 c8 0c | ca 5c 22 09 41 5c 22 42 |\"B\n...|.\".A\"B|
|00003bb0| 1e 0b 1e 0c 1e 0d 1b 0e | 0c ab 91 ce cf 1b 0e 0d |........|........|
|00003bc0| 42 cf 1b 0e 0c 42 cf 1b | 0e 0b 42 46 43 aa 8b ce |B....B..|..BFC...|
|00003bd0| cf 1b 0e 0d 42 cf 1b 0e | 0b 42 45 43 2b 2b 87 22 |....B...|.BEC++."|
|00003be0| 20 5b 6e 75 6d 73 31 20 | 6e 75 6d 73 32 20 63 68 | [nums1 |nums2 ch|
|00003bf0| 32 20 63 68 31 20 6c 65 | 6e 20 30 20 72 65 67 65 |2 ch1 le|n 0 rege|
|00003c00| 78 70 2d 63 68 61 72 73 | 65 74 2d 72 61 6e 67 65 |xp-chars|et-range|
|00003c10| 2d 31 20 72 65 67 65 78 | 70 2d 63 68 61 72 73 65 |-1 regex|p-charse|
|00003c20| 74 2d 72 61 6e 67 65 2d | 74 6f 2d 72 65 67 65 78 |t-range-|to-regex|
|00003c30| 70 2a 20 6d 61 6b 65 2d | 6c 69 73 74 20 32 35 35 |p* make-|list 255|
|00003c40| 20 31 36 30 20 70 61 72 | 74 33 20 70 61 72 74 32 | 160 par|t3 part2|
|00003c50| 20 70 61 72 74 31 20 3a | 6f 72 20 3a 73 65 71 5d | part1 :|or :seq]|
|00003c60| 20 38 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 | 8]).(de|falias '|
|00003c70| 72 65 67 65 78 70 2d 63 | 68 61 72 73 65 74 2d 72 |regexp-c|harset-r|
|00003c80| 61 6e 67 65 2d 31 20 23 | 5b 28 66 72 6f 6d 20 74 |ange-1 #|[(from t|
|00003c90| 6f 29 20 22 c0 19 5c 6e | 0b 58 ab 89 0b 09 42 11 |o) "..\n|.X....B.|
|00003ca0| 0b 53 13 aa 72 c4 09 29 | 42 87 22 20 5b 6e 69 6c |.S..r..)|B." [nil|
|00003cb0| 20 72 65 73 75 6c 74 20 | 66 72 6f 6d 20 74 6f 20 | result |from to |
|00003cc0| 3a 6f 72 5d 20 32 5d 29 | 0a 28 64 65 66 61 6c 69 |:or] 2])|.(defali|
|00003cd0| 61 73 20 27 72 65 67 65 | 78 70 2d 63 68 61 72 73 |as 'rege|xp-chars|
|00003ce0| 65 74 2d 72 61 6e 67 65 | 2d 31 2a 20 23 5b 28 66 |et-range|-1* #[(f|
|00003cf0| 72 6f 6d 20 74 6f 29 20 | 22 08 09 58 ad 87 08 c2 |rom to) |"..X....|
|00003d00| 08 54 09 5c 22 42 87 22 | 20 5b 66 72 6f 6d 20 74 |.T.\"B."| [from t|
|00003d10| 6f 20 72 65 67 65 78 70 | 2d 63 68 61 72 73 65 74 |o regexp|-charset|
|00003d20| 2d 72 61 6e 67 65 2d 31 | 2a 5d 20 34 5d 29 0a 28 |-range-1|*] 4]).(|
|00003d30| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 c1 21 ac 82 |byte-cod|e "..!..|
|00003d40| c2 11 c1 0b 42 13 c2 87 | 22 20 5b 62 6f 75 6e 64 |....B...|" [bound|
|00003d50| 70 20 2a 72 65 67 65 78 | 70 2d 63 68 61 72 73 65 |p *regex|p-charse|
|00003d60| 74 2d 76 65 63 74 6f 72 | 2a 20 6e 69 6c 20 63 75 |t-vector|* nil cu|
|00003d70| 72 72 65 6e 74 2d 6c 6f | 61 64 2d 6c 69 73 74 5d |rrent-lo|ad-list]|
|00003d80| 20 32 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 72 | 2).(def|alias 'r|
|00003d90| 65 67 65 78 70 2d 65 78 | 70 61 6e 64 2d 63 68 61 |egexp-ex|pand-cha|
|00003da0| 72 73 65 74 20 23 5b 28 | 6d 6f 64 65 20 63 68 61 |rset #[(|mode cha|
|00003db0| 72 73 65 74 73 29 20 22 | 08 ac 85 c1 c2 c3 5c 22 |rsets) "|......\"|
|00003dc0| 10 c4 1d c4 c2 57 ab 8b | 08 0d c3 49 88 0d 54 89 |.....W..|...I..T.|
|00003dd0| 15 aa 71 29 1b 0e 06 83 | c4 00 1b 0e 06 40 a7 ab |..q)....|.....@..|
|00003de0| 8a 08 1b 0e 06 40 c7 49 | 88 82 bb 00 1b 0e 06 40 |.....@.I|.......@|
|00003df0| 3b ab ad 1b 0e 06 40 47 | c8 55 ab 8b 08 1b 0e 06 |;.....@G|.U......|
|00003e00| 40 c4 48 c7 49 88 aa f2 | c9 1b 0e 06 40 21 1e 5c |@.H.I...|....@!.\|
|00003e10| 6e 08 1b 0e 5c 6e 40 cb | 1b 0e 5c 6e 41 08 1b 0e |n...\n@.|..\nA...|
|00003e20| 5c 6e 40 48 5c 22 49 88 | 29 aa d8 1b 0e 06 40 3a |\n@H\"I.|).....@:|
|00003e30| ab d2 1b 0e 06 40 40 cc | 61 ab ca 1b 0e 06 40 41 |.....@@.|a.....@A|
|00003e40| 40 c4 48 cd 1b 0e 06 40 | 38 c4 48 1e 1b 0e 89 1e |@.H....@|8.H.....|
|00003e50| 1b 0f 1b 0e 1b 0e 58 ab | b1 1b 0e 1b 0e d0 57 ab |......X.|......W.|
|00003e60| 9b 1b 0e 1b 0f 89 1e 11 | 1b 0e 1b 0e 58 ab 8e 08 |........|....X...|
|00003e70| 1b 0e 11 c7 49 88 1b 0e | 11 54 89 16 11 aa 6d 29 |....I...|.T....m)|
|00003e80| aa 90 c9 1b 0e 06 40 41 | 40 21 88 c9 cd 1b 0e 06 |......@A|@!......|
|00003e90| 40 38 21 88 2a 1b 0e 06 | 41 89 16 06 84 20 00 c3 |@8!.*...|A.... ..|
|00003ea0| c4 1d 1e 12 0d c2 57 ab | 95 08 0d 48 1b 0e 13 61 |......W.|...H...a|
|00003eb0| ab 87 0d 43 1b 0e 12 42 | 16 12 0d 54 89 15 aa 67 |...C...B|...T...g|
|00003ec0| 1b 0e 12 9f 2a 87 22 20 | 5b 2a 72 65 67 65 78 70 |....*." |[*regexp|
|00003ed0| 2d 63 68 61 72 73 65 74 | 2d 76 65 63 74 6f 72 2a |-charset|-vector*|
|00003ee0| 20 6d 61 6b 65 2d 76 65 | 63 74 6f 72 20 32 35 36 | make-ve|ctor 256|
|00003ef0| 20 6e 69 6c 20 30 20 69 | 20 63 68 61 72 73 65 74 | nil 0 i| charset|
|00003f00| 73 20 74 20 31 20 54 52 | 45 58 2d 73 74 72 69 6e |s t 1 TR|EX-strin|
|00003f10| 67 2d 74 6f 2d 6c 69 73 | 74 20 6c 69 73 74 20 72 |g-to-lis|t list r|
|00003f20| 65 67 65 78 70 2d 65 78 | 70 61 6e 64 2d 63 68 61 |egexp-ex|pand-cha|
|00003f30| 72 73 65 74 2d 73 65 74 | 2d 6d 61 72 6b 20 3a 72 |rset-set|-mark :r|
|00003f40| 61 6e 67 65 20 32 20 74 | 6f 20 66 72 6f 6d 20 31 |ange 2 t|o from 1|
|00003f50| 32 38 20 63 68 61 72 20 | 72 65 73 75 6c 74 20 6d |28 char |result m|
|00003f60| 6f 64 65 5d 20 37 5d 29 | 0a 28 64 65 66 61 6c 69 |ode] 7])|.(defali|
|00003f70| 61 73 20 27 72 65 67 65 | 78 70 2d 65 78 70 61 6e |as 'rege|xp-expan|
|00003f80| 64 2d 63 68 61 72 73 65 | 74 2d 73 65 74 2d 6d 61 |d-charse|t-set-ma|
|00003f90| 72 6b 20 23 5b 28 63 68 | 61 72 73 20 61 6c 69 73 |rk #[(ch|ars alis|
|00003fa0| 74 29 20 22 08 ac 82 c1 | 87 c2 08 40 0b 5c 22 89 |t) "....|...@.\".|
|00003fb0| 1c ac 8c 08 40 c5 08 41 | c6 5c 22 42 0b 42 aa 8a |....@..A|.\"B.B..|
|00003fc0| 0c c5 08 41 0c 41 5c 22 | a1 88 0b 29 87 22 20 5b |...A.A\"|...)." [|
|00003fd0| 63 68 61 72 73 20 74 20 | 61 73 73 6f 63 20 61 6c |chars t |assoc al|
|00003fe0| 69 73 74 20 70 6c 61 63 | 65 20 72 65 67 65 78 70 |ist plac|e regexp|
|00003ff0| 2d 65 78 70 61 6e 64 2d | 63 68 61 72 73 65 74 2d |-expand-|charset-|
|00004000| 73 65 74 2d 6d 61 72 6b | 20 6e 69 6c 5d 20 35 5d |set-mark| nil] 5]|
|00004010| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 72 65 67 |).(defal|ias 'reg|
|00004020| 65 78 70 2d 65 78 70 61 | 6e 64 2d 6f 72 20 23 5b |exp-expa|nd-or #[|
|00004030| 28 72 65 67 65 78 70 73 | 29 20 22 08 ad 8a c1 c2 |(regexps|) ".....|
|00004040| 08 40 21 c3 08 41 21 5c | 22 87 22 20 5b 72 65 67 |.@!..A!\|"." [reg|
|00004050| 65 78 70 73 20 61 70 70 | 65 6e 64 20 72 65 67 65 |exps app|end rege|
|00004060| 78 70 2d 65 78 70 61 6e | 64 2d 72 65 67 65 78 70 |xp-expan|d-regexp|
|00004070| 20 72 65 67 65 78 70 2d | 65 78 70 61 6e 64 2d 6f | regexp-|expand-o|
|00004080| 72 5d 20 34 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |r] 4]).(|defalias|
|00004090| 20 27 72 65 67 65 78 70 | 2d 65 78 70 61 6e 64 2d | 'regexp|-expand-|
|000040a0| 73 65 71 20 23 5b 28 72 | 65 67 65 78 70 73 29 20 |seq #[(r|egexps) |
|000040b0| 22 08 ac 83 c1 43 87 c2 | 08 40 21 1b 1b c4 c1 0b |"....C..|.@!.....|
|000040c0| 5c 22 ab a4 c5 08 41 21 | 1e 06 c7 c1 0b 5c 22 89 |\"....A!|.....\".|
|000040d0| 13 ab 91 c8 0b 40 08 41 | 5c 22 1b 0e 06 42 16 06 |.....@.A|\"...B..|
|000040e0| 0b 41 89 13 ac 6f 1b 0e | 06 29 aa 9a c1 1e 06 0b |.A...o..|.)......|
|000040f0| ab 91 c8 0b 40 08 41 5c | 22 1b 0e 06 42 16 06 0b |....@.A\|"...B...|
|00004100| 41 89 13 ac 6f 1b 0e 06 | 29 29 87 22 20 5b 72 65 |A...o...|))." [re|
|00004110| 67 65 78 70 73 20 6e 69 | 6c 20 72 65 67 65 78 70 |gexps ni|l regexp|
|00004120| 2d 65 78 70 61 6e 64 2d | 72 65 67 65 78 70 20 72 |-expand-|regexp r|
|00004130| 65 73 75 6c 74 20 54 52 | 45 58 2d 6d 65 6d 65 71 |esult TR|EX-memeq|
|00004140| 75 61 6c 20 72 65 67 65 | 78 70 2d 65 78 70 61 6e |ual rege|xp-expan|
|00004150| 64 2d 73 65 71 20 6e 65 | 77 72 65 73 75 6c 74 20 |d-seq ne|wresult |
|00004160| 54 52 45 58 2d 64 65 6c | 65 74 65 20 61 70 70 65 |TREX-del|ete appe|
|00004170| 6e 64 5d 20 34 5d 29 0a | 28 64 65 66 61 6c 69 61 |nd] 4]).|(defalia|
|00004180| 73 20 27 72 65 67 65 78 | 70 2d 65 78 70 61 6e 64 |s 'regex|p-expand|
|00004190| 2d 69 74 65 6d 73 20 23 | 5b 28 69 74 65 6d 73 29 |-items #|[(items)|
|000041a0| 20 22 08 ad 8a c1 c2 08 | 40 21 c3 08 41 21 5c 22 | "......|@!..A!\"|
|000041b0| 87 22 20 5b 69 74 65 6d | 73 20 61 70 70 65 6e 64 |." [item|s append|
|000041c0| 20 72 65 67 65 78 70 2d | 65 78 70 61 6e 64 2d 73 | regexp-|expand-s|
|000041d0| 65 71 20 72 65 67 65 78 | 70 2d 65 78 70 61 6e 64 |eq regex|p-expand|
|000041e0| 2d 69 74 65 6d 73 5d 20 | 34 5d 29 0a 28 64 65 66 |-items] |4]).(def|
|000041f0| 61 6c 69 61 73 20 27 72 | 65 67 65 78 70 2d 6d 61 |alias 'r|egexp-ma|
|00004200| 6b 65 2d 69 73 6c 61 6e | 64 20 23 5b 28 69 74 65 |ke-islan|d #[(ite|
|00004210| 6d 73 29 20 22 c0 c1 5c | 6e 21 21 89 1b 1b 89 1c |ms) "..\|n!!.....|
|00004220| ab 93 0c 40 ac 89 0c c5 | a1 88 c5 89 14 aa 71 0c |...@....|......q.|
|00004230| 41 89 14 ac 6d 29 0b 29 | 87 22 20 5b 54 52 45 58 |A...m).)|." [TREX|
|00004240| 2d 64 65 6c 65 74 65 2d | 64 75 70 6c 69 63 61 74 |-delete-|duplicat|
|00004250| 65 20 72 65 67 65 78 70 | 2d 65 78 70 61 6e 64 2d |e regexp|-expand-|
|00004260| 69 74 65 6d 73 20 69 74 | 65 6d 73 20 72 65 73 75 |items it|ems resu|
|00004270| 6c 74 20 6c 20 6e 69 6c | 5d 20 34 5d 29 0a 28 64 |lt l nil|] 4]).(d|
|00004280| 65 66 61 6c 69 61 73 20 | 27 72 65 67 65 78 70 2d |efalias |'regexp-|
|00004290| 6d 61 6b 65 2d 69 73 6c | 61 6e 64 2d 70 61 72 61 |make-isl|and-para|
|000042a0| 6c 6c 65 6c 20 23 5b 28 | 69 74 65 6d 73 29 20 22 |llel #[(|items) "|
|000042b0| c0 c1 c2 0b 21 21 c4 5c | 22 87 22 20 5b 72 65 67 |....!!.\|"." [reg|
|000042c0| 65 78 70 2d 73 6f 72 74 | 20 54 52 45 58 2d 64 65 |exp-sort| TREX-de|
|000042d0| 6c 65 74 65 2d 64 75 70 | 6c 69 63 61 74 65 20 72 |lete-dup|licate r|
|000042e0| 65 67 65 78 70 2d 65 78 | 70 61 6e 64 2d 69 74 65 |egexp-ex|pand-ite|
|000042f0| 6d 73 20 69 74 65 6d 73 | 20 72 65 67 65 78 70 2d |ms items| regexp-|
|00004300| 69 74 65 6d 2d 6c 65 73 | 73 70 5d 20 34 5d 29 0a |item-les|sp] 4]).|
|00004310| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 21 ac |(byte-co|de "..!.|
|00004320| 82 c2 11 c1 0b 42 13 c0 | c4 21 ac 82 c2 14 c4 0b |.....B..|.!......|
|00004330| 42 13 c0 c5 21 ac 82 c6 | 15 c5 0b 42 13 c2 87 22 |B...!...|...B..."|
|00004340| 20 5b 62 6f 75 6e 64 70 | 20 2a 72 65 67 65 78 70 | [boundp| *regexp|
|00004350| 2d 6e 6f 64 65 2d 74 6f | 2d 74 72 61 6e 73 74 61 |-node-to|-transta|
|00004360| 62 6c 65 2a 20 6e 69 6c | 20 63 75 72 72 65 6e 74 |ble* nil| current|
|00004370| 2d 6c 6f 61 64 2d 6c 69 | 73 74 20 2a 72 65 67 65 |-load-li|st *rege|
|00004380| 78 70 2d 69 73 6c 61 6e | 64 2d 74 6f 2d 6e 6f 64 |xp-islan|d-to-nod|
|00004390| 65 2a 20 2a 72 65 67 65 | 78 70 2d 63 6f 75 6e 74 |e* *rege|xp-count|
|000043a0| 65 72 2a 20 30 5d 20 32 | 29 0a 28 64 65 66 61 6c |er* 0] 2|).(defal|
|000043b0| 69 61 73 20 27 46 41 2d | 6d 61 6b 65 20 23 5b 28 |ias 'FA-|make #[(|
|000043c0| 72 65 67 65 78 70 29 20 | 22 c0 11 c0 c2 1b 1b 1c |regexp) |".......|
|000043d0| c5 c6 1b 0e 07 21 21 1e | 08 c9 1b 0e 08 21 0c 9f |.....!!.|.....!..|
|000043e0| 2b 42 87 22 20 5b 6e 69 | 6c 20 2a 72 65 67 65 78 |+B." [ni|l *regex|
|000043f0| 70 2d 69 73 6c 61 6e 64 | 2d 74 6f 2d 6e 6f 64 65 |p-island|-to-node|
|00004400| 2a 20 30 20 2a 72 65 67 | 65 78 70 2d 63 6f 75 6e |* 0 *reg|exp-coun|
|00004410| 74 65 72 2a 20 2a 72 65 | 67 65 78 70 2d 6e 6f 64 |ter* *re|gexp-nod|
|00004420| 65 2d 74 6f 2d 74 72 61 | 6e 73 74 61 62 6c 65 2a |e-to-tra|nstable*|
|00004430| 20 72 65 67 65 78 70 2d | 6d 61 6b 65 2d 69 73 6c | regexp-|make-isl|
|00004440| 61 6e 64 20 72 65 67 65 | 78 70 2d 65 78 70 61 6e |and rege|xp-expan|
|00004450| 64 2d 72 65 67 65 78 70 | 20 72 65 67 65 78 70 20 |d-regexp| regexp |
|00004460| 69 73 6c 61 6e 64 20 46 | 41 2d 6d 61 6b 65 2d 63 |island F|A-make-c|
|00004470| 6c 6f 73 75 72 65 5d 20 | 33 5d 29 0a 28 64 65 66 |losure] |3]).(def|
|00004480| 61 6c 69 61 73 20 27 46 | 41 2d 6d 61 6b 65 2d 63 |alias 'F|A-make-c|
|00004490| 6c 6f 73 75 72 65 20 23 | 5b 28 69 73 6c 61 6e 64 |losure #|[(island|
|000044a0| 29 20 22 08 ab 87 c1 c2 | c3 0c 5c 22 21 88 0c 85 |) ".....|..\"!...|
|000044b0| 64 01 c5 0c 1b 0e 06 5c | 22 c7 1e 08 89 1e 09 ab |d......\|".......|
|000044c0| 86 1b 0e 09 41 82 63 01 | ca cb 0c 5c 22 89 16 08 |....A.c.|...\"...|
|000044d0| ab d7 cc 0c 1b 0e 08 5c | 22 1b 0e 08 0c 38 1b 0e |.......\|"....8..|
|000044e0| 08 54 0c 9b 1e 0d 1e 1b | 0e 1e 1b 0f 1b 0e 10 54 |.T......|.......T|
|000044f0| 89 16 10 1e 11 1b 0e 1b | 0e 40 c7 42 89 1e 12 43 |........|.@.B...C|
|00004500| 1e 13 1b 0e 11 1b 0e 13 | 42 1e 09 0c 1b 0e 11 42 |........|B......B|
|00004510| 1b 0e 06 42 16 06 1b 0e | 09 1b 0e 14 42 16 14 1b |...B....|....B...|
|00004520| 0e 12 d5 d6 d7 1b 0e 1b | 0f 1b 0e 1b 0e 41 43 1b |........|.....AC.|
|00004530| 0e 0d 23 21 21 a1 88 1b | 0e 11 2e 07 82 63 01 ca |..#!!...|.....c..|
|00004540| d8 0c 5c 22 89 16 08 83 | 5d 01 1b 0e 08 0c 38 40 |..\"....|].....8@|
|00004550| 0c c7 89 1e 19 1e 1a 1e | 1b 1b 1e 1c 1b 0e 1b 1b |........|........|
|00004560| ab ae 1b 0e 1b 1b 40 1e | 1b 0e 1b 0e 1c 1b 0e 1b |......@.|........|
|00004570| 0e 40 6b ab 8a 1b 0e 1b | 0e 41 1b 0e 1a 42 16 1a |.@k.....|.A...B..|
|00004580| aa 8e 1b 0e 1b 0e 1b 0e | 1a 42 16 1a 1b 0e 1b 0e |........|.B......|
|00004590| 1b 0e 19 42 16 19 29 1b | 0e 1b 1b 41 89 16 1b 1b |...B..).|...A....|
|000045a0| ac 52 1b 0e 1a 9f 16 1a | 1b 0e 19 9f 89 16 19 ac |.R......|........|
|000045b0| b8 1b 0e 10 54 89 16 10 | 1e 11 1b 0e 1c c7 42 89 |....T...|......B.|
|000045c0| 1e 1d 43 1e 13 1b 0e 11 | 1b 0e 13 42 1e 09 0c 1b |..C.....|...B....|
|000045d0| 0e 11 42 1b 0e 06 42 16 | 06 1b 0e 09 1b 0e 14 42 |..B...B.|.......B|
|000045e0| 16 14 1b 0e 1d d5 d6 1b | 0e 1a 21 21 a1 88 1b 0e |........|..!!....|
|000045f0| 11 2c aa c8 1b 0e 10 54 | 89 16 10 1e 11 1b 0e 1c |.,.....T|........|
|00004600| c7 42 1e 1d de c7 42 1e | 1f 1b 0e 1d 1b 0e 1f 44 |.B....B.|.......D|
|00004610| 1e 13 1b 0e 11 1b 0e 13 | 42 1e 09 0c 1b 0e 11 42 |........|B......B|
|00004620| 1b 0e 06 42 16 06 1b 0e | 09 1b 0e 14 42 16 14 1b |...B....|....B...|
|00004630| 0e 1d d5 d6 1b 0e 1a 21 | 21 a1 88 1b 0e 1f d5 d6 |.......!|!.......|
|00004640| 1b 0e 19 21 21 a1 88 1b | 0e 11 2d 2c aa 86 e0 0c |...!!...|..-,....|
|00004650| e1 0c 21 5c 22 2a 87 22 | 20 5b 2a 72 65 67 65 78 |..!\"*."| [*regex|
|00004660| 70 2d 64 65 62 75 67 2a | 20 70 72 69 6e 63 20 66 |p-debug*| princ f|
|00004670| 6f 72 6d 61 74 20 22 46 | 41 2d 6d 61 6b 65 2d 63 |ormat "F|A-make-c|
|00004680| 6c 6f 73 75 72 65 20 25 | 73 5c 6e 22 20 69 73 6c |losure %|s\n" isl|
|00004690| 61 6e 64 20 61 73 73 6f | 63 20 2a 72 65 67 65 78 |and asso|c *regex|
|000046a0| 70 2d 69 73 6c 61 6e 64 | 2d 74 6f 2d 6e 6f 64 65 |p-island|-to-node|
|000046b0| 2a 20 6e 69 6c 20 70 6f | 73 20 70 6c 61 63 65 20 |* nil po|s place |
|000046c0| 54 52 45 58 2d 66 69 6e | 64 2d 69 66 20 72 65 67 |TREX-fin|d-if reg|
|000046d0| 65 78 70 2d 69 74 65 6d | 2d 6b 65 79 2d 63 6c 61 |exp-item|-key-cla|
|000046e0| 73 73 30 20 54 52 45 58 | 2d 66 69 72 73 74 6e 20 |ss0 TREX|-firstn |
|000046f0| 70 6f 73 74 20 69 74 65 | 6d 20 70 72 65 20 2a 72 |post ite|m pre *r|
|00004700| 65 67 65 78 70 2d 63 6f | 75 6e 74 65 72 2a 20 6e |egexp-co|unter* n|
|00004710| 75 6d 62 65 72 20 70 61 | 69 72 20 61 6c 69 73 74 |umber pa|ir alist|
|00004720| 20 2a 72 65 67 65 78 70 | 2d 6e 6f 64 65 2d 74 6f | *regexp|-node-to|
|00004730| 2d 74 72 61 6e 73 74 61 | 62 6c 65 2a 20 46 41 2d |-transta|ble* FA-|
|00004740| 6d 61 6b 65 2d 63 6c 6f | 73 75 72 65 20 72 65 67 |make-clo|sure reg|
|00004750| 65 78 70 2d 6d 61 6b 65 | 2d 69 73 6c 61 6e 64 20 |exp-make|-island |
|00004760| 61 70 70 65 6e 64 20 72 | 65 67 65 78 70 2d 69 74 |append r|egexp-it|
|00004770| 65 6d 2d 6b 65 79 2d 63 | 6c 61 73 73 31 20 72 65 |em-key-c|lass1 re|
|00004780| 73 75 6c 74 2d 66 61 6c | 73 65 20 72 65 73 75 6c |sult-fal|se resul|
|00004790| 74 2d 74 72 75 65 20 69 | 74 65 6d 73 20 6b 65 79 |t-true i|tems key|
|000047a0| 20 70 61 69 72 2d 74 72 | 75 65 20 3a 65 70 73 69 | pair-tr|ue :epsi|
|000047b0| 6c 6f 6e 20 70 61 69 72 | 2d 66 61 6c 73 65 20 46 |lon pair|-false F|
|000047c0| 41 2d 6d 61 6b 65 2d 63 | 6c 6f 73 75 72 65 2a 20 |A-make-c|losure* |
|000047d0| 46 41 2d 6d 61 6b 65 2d | 70 72 65 2d 61 6c 69 73 |FA-make-|pre-alis|
|000047e0| 74 5d 20 38 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |t] 8]).(|defalias|
|000047f0| 20 27 46 41 2d 6d 61 6b | 65 2d 63 6c 6f 73 75 72 | 'FA-mak|e-closur|
|00004800| 65 2a 20 23 5b 28 69 73 | 6c 61 6e 64 20 70 72 65 |e* #[(is|land pre|
|00004810| 2d 61 6c 69 73 74 29 20 | 22 08 ab 87 c1 c2 c3 0c |-alist) |".......|
|00004820| 5c 22 21 88 0d 54 89 15 | 89 1e 06 0c 42 1e 07 1b |\"!..T..|....B...|
|00004830| 0e 08 1b 0e 06 42 1b 0e | 09 42 16 09 1b 0e 07 1b |.....B..|.B......|
|00004840| 0e 5c 6e 42 16 5c 6e 0c | ab 95 0c 40 89 1e 0b cc |.\nB.\n.|...@....|
|00004850| cd 1b 0e 0b 41 21 21 a1 | 88 29 0c 41 89 14 ac 6b |....A!!.|.).A...k|
|00004860| 1b 0e 06 2a 87 22 20 5b | 2a 72 65 67 65 78 70 2d |...*." [|*regexp-|
|00004870| 64 65 62 75 67 2a 20 70 | 72 69 6e 63 20 66 6f 72 |debug* p|rinc for|
|00004880| 6d 61 74 20 22 5c 6e 72 | 65 67 65 78 70 2d 6d 61 |mat "\nr|egexp-ma|
|00004890| 6b 65 2d 63 6c 6f 75 73 | 72 65 2a 20 25 73 22 20 |ke-clous|re* %s" |
|000048a0| 70 72 65 2d 61 6c 69 73 | 74 20 2a 72 65 67 65 78 |pre-alis|t *regex|
|000048b0| 70 2d 63 6f 75 6e 74 65 | 72 2a 20 6e 75 6d 62 65 |p-counte|r* numbe|
|000048c0| 72 20 70 6c 61 63 65 20 | 69 73 6c 61 6e 64 20 2a |r place |island *|
|000048d0| 72 65 67 65 78 70 2d 69 | 73 6c 61 6e 64 2d 74 6f |regexp-i|sland-to|
|000048e0| 2d 6e 6f 64 65 2a 20 2a | 72 65 67 65 78 70 2d 6e |-node* *|regexp-n|
|000048f0| 6f 64 65 2d 74 6f 2d 74 | 72 61 6e 73 74 61 62 6c |ode-to-t|ranstabl|
|00004900| 65 2a 20 70 61 69 72 20 | 46 41 2d 6d 61 6b 65 2d |e* pair |FA-make-|
|00004910| 63 6c 6f 73 75 72 65 20 | 72 65 67 65 78 70 2d 6d |closure |regexp-m|
|00004920| 61 6b 65 2d 69 73 6c 61 | 6e 64 5d 20 35 5d 29 0a |ake-isla|nd] 5]).|
|00004930| 28 64 65 66 61 6c 69 61 | 73 20 27 46 41 2d 6d 61 |(defalia|s 'FA-ma|
|00004940| 6b 65 2d 70 72 65 2d 61 | 6c 69 73 74 20 23 5b 28 |ke-pre-a|list #[(|
|00004950| 69 74 65 6d 73 29 20 22 | c0 19 5c 6e 83 c7 00 5c |items) "|..\n...\|
|00004960| 6e 40 1b 1b c4 0b 40 21 | ac 86 c5 0b 40 21 ab b0 |n@....@!|....@!..|
|00004970| 0b 40 c0 1e 06 1e 07 5c | 6e ab 96 1b 0e 07 5c 6e |.@.....\|n.....\n|
|00004980| 40 40 6b ab 8e 5c 6e 40 | 41 1b 0e 06 42 16 06 5c |@@k..\n@|A...B..\|
|00004990| 6e 41 89 12 ac 6a 1b 0e | 06 9f 16 06 1b 0e 07 1b |nA...j..|........|
|000049a0| 0e 06 42 09 42 11 2a aa | fe 0b ac 8a c0 43 09 42 |..B.B.*.|.....C.B|
|000049b0| 11 5c 6e 41 12 aa f1 c8 | 0b 40 21 ab e6 c0 1e 09 |.\nA....|.@!.....|
|000049c0| 5c 6e ab b8 c8 5c 6e 40 | 40 21 ab b1 5c 6e 40 1e |\n...\n@|@!..\n@.|
|000049d0| 5c 6e cb 1b 0e 5c 6e 40 | 1b 0e 09 5c 22 89 1e 0c |\n...\n@|...\"...|
|000049e0| ab 8d 1b 0e 0c 1b 0e 5c | 6e 41 1b 0e 0c 41 42 a1 |.......\|nA...AB.|
|000049f0| 88 aa 8d 1b 0e 5c 6e 40 | 1b 0e 5c 6e 41 43 42 1b |.....\n@|..\nACB.|
|00004a00| 0e 09 42 16 09 2a 5c 6e | 41 89 12 ac 48 cd 1b 0e |..B..*\n|A...H...|
|00004a10| 09 ce 5c 22 89 16 09 89 | 1e 1b 0f ab 92 1b 0e 1b |..\"....|........|
|00004a20| 0f 40 1b 0e 1b 0f 40 41 | 9f a1 88 1b 0e 1b 0f 41 |.@....@A|.......A|
|00004a30| 89 16 1b 0f ac 6e d0 1b | 0e 09 09 5c 22 11 2a aa |.....n..|...\".*.|
|00004a40| 85 d1 d2 0b 5c 22 88 29 | 82 02 00 09 9f 29 87 22 |....\".)|.....)."|
|00004a50| 20 5b 6e 69 6c 20 70 72 | 65 2d 61 6c 69 73 74 20 | [nil pr|e-alist |
|00004a60| 69 74 65 6d 73 20 69 74 | 65 6d 20 72 65 67 65 78 |items it|em regex|
|00004a70| 70 2d 6b 65 79 2d 63 6c | 61 73 73 32 20 72 65 67 |p-key-cl|ass2 reg|
|00004a80| 65 78 70 2d 6b 65 79 2d | 63 6c 61 73 73 33 20 6e |exp-key-|class3 n|
|00004a90| 65 77 69 74 65 6d 73 20 | 6b 65 79 20 72 65 67 65 |ewitems |key rege|
|00004aa0| 78 70 2d 6b 65 79 2d 63 | 6c 61 73 73 34 20 61 6c |xp-key-c|lass4 al|
|00004ab0| 69 73 74 20 6e 65 77 69 | 74 65 6d 20 61 73 73 6f |ist newi|tem asso|
|00004ac0| 63 20 70 6c 61 63 65 20 | 73 6f 72 74 20 54 52 45 |c place |sort TRE|
|00004ad0| 58 2d 6c 65 73 73 70 2d | 63 61 72 20 6c 69 73 74 |X-lessp-|car list|
|00004ae0| 20 61 70 70 65 6e 64 20 | 65 72 72 6f 72 20 22 75 | append |error "u|
|00004af0| 6e 64 65 66 69 6e 65 64 | 20 69 74 65 6d 73 28 25 |ndefined| items(%|
|00004b00| 73 29 22 5d 20 34 5d 29 | 0a 28 64 65 66 61 6c 69 |s)"] 4])|.(defali|
|00004b10| 61 73 20 27 46 41 2d 69 | 6e 76 65 72 73 65 20 23 |as 'FA-i|nverse #|
|00004b20| 5b 28 46 41 29 20 22 c0 | 09 40 09 41 c2 c3 c0 89 |[(FA) ".|.@.A....|
|00004b30| 89 1c 1d 1e 06 1e 07 1e | 08 1e 09 1e 5c 6e 1e 0b |........|....\n..|
|00004b40| 1b 0e 09 89 1e 0c ab a4 | 1b 0e 0c 40 40 89 1e 0d |........|...@@...|
|00004b50| 1b 0e 08 57 ab 84 1b 0e | 0d 16 08 1b 0e 07 1b 0e |...W....|........|
|00004b60| 0d 57 ab 84 1b 0e 0d 16 | 07 29 1b 0e 0c 41 89 16 |.W......|.)...A..|
|00004b70| 0c ac 5c 5c 29 1b 0e 08 | 53 15 1b 0e 07 54 14 ce |..\\)...|S....T..|
|00004b80| 0c c0 89 1b 0e 06 24 16 | 06 1b 0e 09 ab cd 1b 0e |......$.|........|
|00004b90| 09 40 89 1e 1b 0f 40 1e | 10 1b 0e 1b 0f 41 1e 11 |.@....@.|.....A..|
|00004ba0| 1b 0e 11 ab b2 1b 0e 11 | 40 89 1e 12 40 1e 13 1b |........|@...@...|
|00004bb0| 0e 12 41 1e 14 1b 0e 13 | ac 8c ce 0d d5 1b 0e 10 |..A.....|........|
|00004bc0| 1b 0e 06 24 16 06 aa 8c | ce 1b 0e 14 1b 0e 13 1b |...$....|........|
|00004bd0| 0e 10 1b 0e 06 24 16 06 | 1b 0e 11 41 16 11 2b aa |.....$..|...A..+.|
|00004be0| 4a 2b 1b 0e 09 41 89 16 | 09 ac 33 ce 1b 0e 5c 6e |J+...A..|..3...\n|
|00004bf0| d5 0c 1b 0e 06 24 89 16 | 06 89 1e 0c ab 93 1b 0e |.....$..|........|
|00004c00| 0c 40 d6 1b 0e 0c 40 41 | 21 a1 88 1b 0e 0c 41 89 |.@....@A|!.....A.|
|00004c10| 16 0c ac 6d 29 d7 1b 0e | 06 d8 5c 22 16 06 0d 1b |...m)...|..\"....|
|00004c20| 0e 06 2e 08 42 87 22 20 | 5b 6e 69 6c 20 46 41 20 |....B." |[nil FA |
|00004c30| 31 30 30 30 30 20 30 20 | 6e 65 77 66 69 6e 61 6c |10000 0 |newfinal|
|00004c40| 20 6e 65 77 73 74 61 72 | 74 20 6e 65 77 74 61 62 | newstar|t newtab|
|00004c50| 6c 65 20 6d 61 78 6e 6f | 64 65 20 6d 69 6e 6e 6f |le maxno|de minno|
|00004c60| 64 65 20 74 61 62 6c 65 | 20 73 74 61 72 74 20 69 |de table| start i|
|00004c70| 6e 76 46 41 20 6c 20 6e | 20 46 41 2d 6c 69 6e 6b |nvFA l n| FA-link|
|00004c80| 20 53 6e 6f 64 65 20 53 | 6e 75 6d 62 65 72 20 53 | Snode S|number S|
|00004c90| 61 6c 69 73 74 20 70 61 | 69 72 20 6b 65 79 20 54 |alist pa|ir key T|
|00004ca0| 6e 75 6d 62 65 72 20 3a | 65 70 73 69 6c 6f 6e 20 |number :|epsilon |
|00004cb0| 72 65 76 65 72 73 65 20 | 73 6f 72 74 20 54 52 45 |reverse |sort TRE|
|00004cc0| 58 2d 6c 65 73 73 70 2d | 63 61 72 5d 20 39 5d 29 |X-lessp-|car] 9])|
|00004cd0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 46 41 2d 6c |.(defali|as 'FA-l|
|00004ce0| 69 6e 6b 20 23 5b 28 66 | 72 6f 6d 20 6b 65 79 20 |ink #[(f|rom key |
|00004cf0| 74 6f 20 74 61 62 6c 65 | 29 20 22 c0 09 5c 6e 5c |to table|) "..\n\|
|00004d00| 22 89 1b 1b ac 88 09 c4 | 42 89 13 5c 6e 42 12 0b |".......|B..\nB..|
|00004d10| 0d 1b 0e 06 42 0b 41 42 | a1 88 5c 6e 29 87 22 20 |....B.AB|..\n)." |
|00004d20| 5b 61 73 73 6f 63 20 66 | 72 6f 6d 20 74 61 62 6c |[assoc f|rom tabl|
|00004d30| 65 20 70 6c 61 63 65 20 | 6e 69 6c 20 6b 65 79 20 |e place |nil key |
|00004d40| 74 6f 5d 20 34 5d 29 0a | 28 64 65 66 61 6c 69 61 |to] 4]).|(defalia|
|00004d50| 73 20 27 46 41 2d 64 75 | 6d 70 20 23 5b 28 74 61 |s 'FA-du|mp #[(ta|
|00004d60| 62 6c 65 29 20 22 08 40 | 08 41 19 1a c3 c4 c5 5c |ble) ".@|.A.....\|
|00004d70| 6e 5c 22 21 88 09 85 d1 | 00 c3 c4 c6 09 40 40 5c |n\"!....|.....@@\|
|00004d80| 22 21 88 09 40 41 89 1e | 07 40 40 a7 ab 90 c3 c4 |"!..@A..|.@@.....|
|00004d90| c8 1b 0e 07 40 40 1b 0e | 07 40 41 23 21 88 aa b6 |....@@..|.@A#!...|
|00004da0| 1b 0e 07 40 40 3a ab a1 | c9 1b 0e 07 40 40 40 ca |...@@:..|....@@@.|
|00004db0| 5c 22 ab 97 c3 c4 cb 1b | 0e 07 40 40 40 1b 0e 07 |\"......|..@@@...|
|00004dc0| 40 40 41 40 1b 0e 07 40 | 41 24 21 88 aa 8e c3 c4 |@@A@...@|A$!.....|
|00004dd0| cc 1b 0e 07 40 40 1b 0e | 07 40 41 23 21 88 1b 0e |....@@..|.@A#!...|
|00004de0| 07 41 89 16 07 ab d5 1b | 0e 07 40 40 a7 ab 90 c3 |.A......|..@@....|
|00004df0| c4 cd 1b 0e 07 40 40 1b | 0e 07 40 41 23 21 88 aa |.....@@.|..@A#!..|
|00004e00| b6 1b 0e 07 40 40 3a ab | a1 c9 1b 0e 07 40 40 40 |....@@:.|.....@@@|
|00004e10| ce 5c 22 ab 97 c3 c4 cf | 1b 0e 07 40 40 40 1b 0e |.\".....|...@@@..|
|00004e20| 07 40 40 41 40 1b 0e 07 | 40 41 24 21 88 aa 8e c3 |.@@A@...|@A$!....|
|00004e30| c4 d0 1b 0e 07 40 40 1b | 0e 07 40 41 23 21 88 1b |.....@@.|..@A#!..|
|00004e40| 0e 07 41 89 16 07 ac 2b | 29 09 41 89 11 84 11 00 |..A....+|).A.....|
|00004e50| d1 2a 87 22 20 5b 74 61 | 62 6c 65 20 6c 20 73 74 |.*." [ta|ble l st|
|00004e60| 61 72 74 20 70 72 69 6e | 63 20 66 6f 72 6d 61 74 |art prin|c format|
|00004e70| 20 22 5c 6e 73 74 61 72 | 74 20 3d 20 25 64 5c 6e | "\nstar|t = %d\n|
|00004e80| 22 20 22 25 33 64 3a 20 | 22 20 61 6c 69 73 74 20 |" "%3d: |" alist |
|00004e90| 22 25 63 20 2d 3e 20 25 | 73 5c 6e 22 20 54 52 45 |"%c -> %|s\n" TRE|
|00004ea0| 58 2d 6d 65 6d 65 71 75 | 61 6c 20 28 43 41 54 45 |X-memequ|al (CATE|
|00004eb0| 47 4f 52 59 53 50 45 43 | 20 4e 4f 54 43 41 54 45 |GORYSPEC| NOTCATE|
|00004ec0| 47 4f 52 59 53 50 45 43 | 29 20 22 28 25 73 20 25 |GORYSPEC|) "(%s %|
|00004ed0| 63 29 20 2d 3e 20 25 73 | 5c 6e 22 20 22 25 73 20 |c) -> %s|\n" "%s |
|00004ee0| 2d 3e 20 25 73 5c 6e 22 | 20 22 20 20 20 20 20 25 |-> %s\n"| " %|
|00004ef0| 63 20 2d 3e 20 25 73 5c | 6e 22 20 28 43 41 54 45 |c -> %s\|n" (CATE|
|00004f00| 47 4f 52 59 53 50 45 43 | 20 4e 4f 54 43 41 54 45 |GORYSPEC| NOTCATE|
|00004f10| 47 4f 52 59 53 50 45 43 | 29 20 22 20 20 20 20 20 |GORYSPEC|) " |
|00004f20| 28 25 73 20 25 63 29 20 | 2d 3e 20 25 73 5c 6e 22 |(%s %c) |-> %s\n"|
|00004f30| 20 22 20 20 20 20 20 25 | 73 20 2d 3e 20 25 73 5c | " %|s -> %s\|
|00004f40| 6e 22 20 6e 69 6c 5d 20 | 37 5d 29 0a 28 62 79 74 |n" nil] |7]).(byt|
|00004f50| 65 2d 63 6f 64 65 20 22 | c0 c1 21 ac 82 c2 11 c1 |e-code "|..!.....|
|00004f60| 0b 42 13 c0 c4 21 ac 82 | c2 14 c4 0b 42 13 c2 87 |.B...!..|....B...|
|00004f70| 22 20 5b 62 6f 75 6e 64 | 70 20 2a 46 41 2d 74 61 |" [bound|p *FA-ta|
|00004f80| 62 6c 65 2a 20 6e 69 6c | 20 63 75 72 72 65 6e 74 |ble* nil| current|
|00004f90| 2d 6c 6f 61 64 2d 6c 69 | 73 74 20 2a 45 46 46 41 |-load-li|st *EFFA|
|00004fa0| 2d 74 61 62 6c 65 2a 5d | 20 32 29 0a 28 64 65 66 |-table*]| 2).(def|
|00004fb0| 61 6c 69 61 73 20 27 45 | 46 46 41 2d 6d 61 6b 65 |alias 'E|FFA-make|
|00004fc0| 20 23 5b 28 46 41 29 20 | 22 08 40 19 08 41 1a 09 | #[(FA) |".@..A..|
|00004fd0| 1b 1b c4 1d 0b c6 c7 09 | 21 21 2c 42 87 22 20 5b |........|!!,B." [|
|00004fe0| 46 41 20 73 74 61 72 74 | 20 2a 46 41 2d 74 61 62 |FA start| *FA-tab|
|00004ff0| 6c 65 2a 20 6e 65 77 73 | 74 61 72 74 20 6e 69 6c |le* news|tart nil|
|00005000| 20 2a 45 46 46 41 2d 74 | 61 62 6c 65 2a 20 72 65 | *EFFA-t|able* re|
|00005010| 76 65 72 73 65 20 45 46 | 46 41 2d 6d 61 6b 65 2a |verse EF|FA-make*|
|00005020| 5d 20 34 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |] 4]).(d|efalias |
|00005030| 27 45 46 46 41 2d 6d 61 | 6b 65 2a 20 23 5b 28 6e |'EFFA-ma|ke* #[(n|
|00005040| 6f 64 65 29 20 22 c0 09 | 5c 6e 5c 22 89 1b 1b ac |ode) "..|\n\"....|
|00005050| b5 09 c4 42 89 1b 1b 5c | 6e 42 12 0b c5 c6 c4 c0 |...B...\|nB......|
|00005060| 09 1b 0e 07 5c 22 41 09 | 43 23 21 a1 88 0b 41 89 |....\"A.|C#!...A.|
|00005070| 1e 08 ab 95 1b 0e 08 40 | 40 ab 87 c9 1b 0e 08 40 |.......@|@......@|
|00005080| 41 21 88 1b 0e 08 41 89 | 16 08 ac 6b 2a 29 5c 6e |A!....A.|...k*)\n|
|00005090| 87 22 20 5b 61 73 73 6f | 63 20 6e 6f 64 65 20 2a |." [asso|c node *|
|000050a0| 45 46 46 41 2d 74 61 62 | 6c 65 2a 20 70 6c 61 63 |EFFA-tab|le* plac|
|000050b0| 65 20 6e 69 6c 20 72 65 | 76 65 72 73 65 20 45 46 |e nil re|verse EF|
|000050c0| 46 41 2d 6d 61 6b 65 2d | 61 6c 69 73 74 20 2a 46 |FA-make-|alist *F|
|000050d0| 41 2d 74 61 62 6c 65 2a | 20 61 6c 69 73 74 20 45 |A-table*| alist E|
|000050e0| 46 46 41 2d 6d 61 6b 65 | 2a 5d 20 38 5d 29 0a 28 |FFA-make|*] 8]).(|
|000050f0| 64 65 66 61 6c 69 61 73 | 20 27 45 46 46 41 2d 6d |defalias| 'EFFA-m|
|00005100| 61 6b 65 2d 61 6c 69 73 | 74 20 23 5b 28 6e 65 77 |ake-alis|t #[(new|
|00005110| 61 6c 69 73 74 20 61 6c | 69 73 74 20 73 65 74 29 |alist al|ist set)|
|00005120| 20 22 08 ab b2 08 40 41 | 19 08 40 40 c2 61 ab 99 | "....@A|..@@.a..|
|00005130| c3 09 0c 5c 22 ac 9a 09 | 0c 42 14 c5 1b 0e 06 c7 |...\"...|.B......|
|00005140| 09 1b 0e 08 5c 22 41 0c | 23 16 06 aa 87 08 40 1b |....\"A.|#.....@.|
|00005150| 0e 06 42 16 06 29 08 41 | 89 10 ac 4e 1b 0e 06 87 |..B..).A|...N....|
|00005160| 22 20 5b 61 6c 69 73 74 | 20 6e 6f 64 65 20 3a 65 |" [alist| node :e|
|00005170| 70 73 69 6c 6f 6e 20 54 | 52 45 58 2d 6d 65 6d 65 |psilon T|REX-meme|
|00005180| 71 75 61 6c 20 73 65 74 | 20 45 46 46 41 2d 6d 61 |qual set| EFFA-ma|
|00005190| 6b 65 2d 61 6c 69 73 74 | 20 6e 65 77 61 6c 69 73 |ke-alist| newalis|
|000051a0| 74 20 61 73 73 6f 63 20 | 2a 46 41 2d 74 61 62 6c |t assoc |*FA-tabl|
|000051b0| 65 2a 5d 20 36 5d 29 0a | 28 62 79 74 65 2d 63 6f |e*] 6]).|(byte-co|
|000051c0| 64 65 20 22 c0 c1 21 ac | 82 c2 11 c1 0b 42 13 c2 |de "..!.|.....B..|
|000051d0| 87 22 20 5b 62 6f 75 6e | 64 70 20 2a 44 46 41 2d |." [boun|dp *DFA-|
|000051e0| 6e 6f 64 65 2d 63 6f 75 | 6e 74 65 72 2a 20 6e 69 |node-cou|nter* ni|
|000051f0| 6c 20 63 75 72 72 65 6e | 74 2d 6c 6f 61 64 2d 6c |l curren|t-load-l|
|00005200| 69 73 74 5d 20 32 29 0a | 28 64 65 66 76 61 72 20 |ist] 2).|(defvar |
|00005210| 2a 44 46 41 2d 6e 6f 64 | 65 2d 64 65 66 69 6e 69 |*DFA-nod|e-defini|
|00005220| 74 69 6f 6e 73 2a 20 6e | 69 6c 20 22 5c 0a 4c 69 |tions* n|il "\.Li|
|00005230| 73 74 20 6f 66 20 46 44 | 2d 6e 6f 64 65 73 20 74 |st of FD|-nodes t|
|00005240| 6f 20 6e 6f 64 65 20 6e | 75 6d 62 65 72 22 29 0a |o node n|umber").|
|00005250| 28 64 65 66 76 61 72 20 | 2a 44 46 41 2d 74 61 62 |(defvar |*DFA-tab|
|00005260| 6c 65 2a 20 6e 69 6c 20 | 22 5c 0a 6e 6f 64 65 20 |le* nil |"\.node |
|00005270| 6e 75 6d 62 65 72 20 74 | 6f 20 61 6c 69 73 74 22 |number t|o alist"|
|00005280| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 44 46 41 |).(defal|ias 'DFA|
|00005290| 2d 6d 61 6b 65 20 23 5b | 28 45 46 46 41 29 20 22 |-make #[|(EFFA) "|
|000052a0| 08 40 08 41 c1 c2 89 1b | 1b 1c 1d 1e 06 1e 07 c8 |.@.A....|........|
|000052b0| 1b 0e 07 43 21 88 c9 1b | 0e 07 43 0c 5c 22 41 0b |...C!...|..C.\"A.|
|000052c0| 2d 42 87 22 20 5b 45 46 | 46 41 20 30 20 6e 69 6c |-B." [EF|FA 0 nil|
|000052d0| 20 2a 44 46 41 2d 74 61 | 62 6c 65 2a 20 2a 44 46 | *DFA-ta|ble* *DF|
|000052e0| 41 2d 6e 6f 64 65 2d 64 | 65 66 69 6e 69 74 69 6f |A-node-d|efinitio|
|000052f0| 6e 73 2a 20 2a 44 46 41 | 2d 6e 6f 64 65 2d 63 6f |ns* *DFA|-node-co|
|00005300| 75 6e 74 65 72 2a 20 2a | 45 46 46 41 2d 74 61 62 |unter* *|EFFA-tab|
|00005310| 6c 65 2a 20 73 74 61 72 | 74 20 44 46 41 2d 6d 61 |le* star|t DFA-ma|
|00005320| 6b 65 2d 31 20 61 73 73 | 6f 63 5d 20 35 5d 29 0a |ke-1 ass|oc] 5]).|
|00005330| 28 64 65 66 61 6c 69 61 | 73 20 27 44 46 41 2d 6d |(defalia|s 'DFA-m|
|00005340| 61 6b 65 2d 31 20 23 5b | 28 73 74 61 74 65 73 29 |ake-1 #[|(states)|
|00005350| 20 22 c0 09 5c 6e 5c 22 | 89 1b 1b ac c3 0c 54 14 | "..\n\"|......T.|
|00005360| 09 0c 42 89 13 5c 6e 42 | 12 0c c5 42 89 1e 06 1b |..B..\nB|...B....|
|00005370| 0e 07 42 16 07 1b 0e 06 | c8 c9 09 21 21 a1 88 1b |..B.....|...!!...|
|00005380| 0e 06 41 89 1e 5c 6e ab | 9b 1b 0e 5c 6e 40 89 1e |..A..\n.|...\n@..|
|00005390| 0b 40 ab 89 1b 0e 0b cc | 1b 0e 0b 41 21 a1 88 29 |.@......|...A!..)|
|000053a0| 1b 0e 5c 6e 41 89 16 5c | 6e ac 65 2a 0b 41 29 87 |..\nA..\|n.e*.A).|
|000053b0| 22 20 5b 61 73 73 6f 63 | 20 73 74 61 74 65 73 20 |" [assoc| states |
|000053c0| 2a 44 46 41 2d 6e 6f 64 | 65 2d 64 65 66 69 6e 69 |*DFA-nod|e-defini|
|000053d0| 74 69 6f 6e 73 2a 20 70 | 6c 61 63 65 20 2a 44 46 |tions* p|lace *DF|
|000053e0| 41 2d 6e 6f 64 65 2d 63 | 6f 75 6e 74 65 72 2a 20 |A-node-c|ounter* |
|000053f0| 6e 69 6c 20 70 61 69 72 | 20 2a 44 46 41 2d 74 61 |nil pair| *DFA-ta|
|00005400| 62 6c 65 2a 20 44 46 41 | 2d 6d 61 6b 65 2d 70 72 |ble* DFA|-make-pr|
|00005410| 65 2d 61 6c 69 73 74 20 | 44 46 41 2d 63 6f 6c 6c |e-alist |DFA-coll|
|00005420| 65 63 74 2d 61 6c 69 73 | 74 20 61 6c 69 73 74 20 |ect-alis|t alist |
|00005430| 74 6f 70 20 44 46 41 2d | 6d 61 6b 65 2d 31 5d 20 |top DFA-|make-1] |
|00005440| 35 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 44 |5]).(def|alias 'D|
|00005450| 46 41 2d 63 6f 6c 6c 65 | 63 74 2d 61 6c 69 73 74 |FA-colle|ct-alist|
|00005460| 20 23 5b 28 73 74 61 74 | 65 73 29 20 22 c0 19 5c | #[(stat|es) "..\|
|00005470| 6e ab 90 c3 c4 5c 6e 40 | 0d 5c 22 41 09 5c 22 11 |n....\n@|.\"A.\".|
|00005480| 5c 6e 41 89 12 ac 70 09 | 29 87 22 20 5b 6e 69 6c |\nA...p.|)." [nil|
|00005490| 20 72 65 73 75 6c 74 20 | 73 74 61 74 65 73 20 61 | result |states a|
|000054a0| 70 70 65 6e 64 20 61 73 | 73 6f 63 20 2a 45 46 46 |ppend as|soc *EFF|
|000054b0| 41 2d 74 61 62 6c 65 2a | 5d 20 35 5d 29 0a 28 64 |A-table*|] 5]).(d|
|000054c0| 65 66 61 6c 69 61 73 20 | 27 44 46 41 2d 6d 61 6b |efalias |'DFA-mak|
|000054d0| 65 2d 70 72 65 2d 61 6c | 69 73 74 20 23 5b 28 6f |e-pre-al|ist #[(o|
|000054e0| 6c 64 41 6c 69 73 74 29 | 20 22 c0 19 5c 6e 83 c9 |ldAlist)| "..\n..|
|000054f0| 00 5c 6e 40 40 1b 1b c4 | 0b 21 ac 8f c5 0b 21 ac |.\n@@...|.!....!.|
|00005500| 8a c6 0b 21 ac 85 c7 0b | 21 ab af 0b c0 1e 08 1e |...!....|!.......|
|00005510| 09 5c 6e ab 96 1b 0e 09 | 5c 6e 40 40 6b ab 8e 5c |.\n.....|\n@@k..\|
|00005520| 6e 40 41 1b 0e 08 42 16 | 08 5c 6e 41 89 12 ac 6a |n@A...B.|.\nA...j|
|00005530| 1b 0e 08 9f 16 08 1b 0e | 09 1b 0e 08 42 09 42 11 |........|....B.B.|
|00005540| 2a aa f8 ca 0b 21 ab e3 | c0 1e 0b 5c 6e ab b4 ca |*....!..|...\n...|
|00005550| 5c 6e 40 40 21 ab ad cc | 5c 6e 40 40 1b 0e 0b 5c |\n@@!...|\n@@...\|
|00005560| 22 89 1e 0d ab 8d 1b 0e | 0d 5c 6e 40 41 1b 0e 0d |".......|.\n@A...|
|00005570| 41 42 a1 88 aa 8d 5c 6e | 40 40 5c 6e 40 41 43 42 |AB....\n|@@\n@ACB|
|00005580| 1b 0e 0b 42 16 0b 29 5c | 6e 41 89 12 ac 4c ce 1b |...B..)\|nA...L..|
|00005590| 0e 0b cf 5c 22 89 16 0b | 89 1e 10 ab 93 1b 0e 10 |...\"...|........|
|000055a0| 40 d1 1b 0e 10 40 41 21 | a1 88 1b 0e 10 41 89 16 |@....@A!|.....A..|
|000055b0| 10 ac 6d d2 1b 0e 0b 09 | 5c 22 11 2a aa 90 0b ac |..m.....|\".*....|
|000055c0| 8a c0 43 09 42 11 5c 6e | 41 12 aa 83 5c 6e 41 12 |..C.B.\n|A...\nA.|
|000055d0| 29 82 02 00 09 9f 29 87 | 22 20 5b 6e 69 6c 20 70 |).....).|" [nil p|
|000055e0| 72 65 2d 61 6c 69 73 74 | 20 6f 6c 64 41 6c 69 73 |re-alist| oldAlis|
|000055f0| 74 20 6f 6c 64 4b 65 79 | 20 72 65 67 65 78 70 2d |t oldKey| regexp-|
|00005600| 6b 65 79 2d 63 6c 61 73 | 73 30 20 72 65 67 65 78 |key-clas|s0 regex|
|00005610| 70 2d 6b 65 79 2d 63 6c | 61 73 73 31 20 72 65 67 |p-key-cl|ass1 reg|
|00005620| 65 78 70 2d 6b 65 79 2d | 63 6c 61 73 73 32 20 72 |exp-key-|class2 r|
|00005630| 65 67 65 78 70 2d 6b 65 | 79 2d 63 6c 61 73 73 33 |egexp-ke|y-class3|
|00005640| 20 6e 65 77 41 6c 69 73 | 74 20 6b 65 79 20 72 65 | newAlis|t key re|
|00005650| 67 65 78 70 2d 6b 65 79 | 2d 63 6c 61 73 73 34 20 |gexp-key|-class4 |
|00005660| 61 6c 69 73 74 20 61 73 | 73 6f 63 20 70 6c 61 63 |alist as|soc plac|
|00005670| 65 20 73 6f 72 74 20 54 | 52 45 58 2d 6c 65 73 73 |e sort T|REX-less|
|00005680| 70 2d 63 61 72 20 6c 69 | 73 74 20 72 65 76 65 72 |p-car li|st rever|
|00005690| 73 65 20 61 70 70 65 6e | 64 5d 20 34 5d 29 0a 28 |se appen|d] 4]).(|
|000056a0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 c1 21 ac 82 |byte-cod|e "..!..|
|000056b0| c2 11 c1 0b 42 13 c0 c4 | 21 ac 82 c2 14 c4 0b 42 |....B...|!......B|
|000056c0| 13 c0 c5 21 ac 82 c6 15 | c5 0b 42 13 c2 87 22 20 |...!....|..B..." |
|000056d0| 5b 62 6f 75 6e 64 70 20 | 2a 44 46 41 2d 6f 70 74 |[boundp |*DFA-opt|
|000056e0| 69 6d 69 7a 65 2d 64 65 | 62 75 67 2a 20 6e 69 6c |imize-de|bug* nil|
|000056f0| 20 63 75 72 72 65 6e 74 | 2d 6c 6f 61 64 2d 6c 69 | current|-load-li|
|00005700| 73 74 20 2a 44 46 41 2d | 6f 70 74 69 6d 69 7a 65 |st *DFA-|optimize|
|00005710| 2d 67 72 6f 75 70 73 2a | 20 2a 44 46 41 2d 6f 70 |-groups*| *DFA-op|
|00005720| 74 69 6d 69 7a 65 2d 6e | 6f 64 65 2a 20 31 5d 20 |timize-n|ode* 1] |
|00005730| 32 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 44 46 |2).(defa|lias 'DF|
|00005740| 41 2d 6f 70 74 69 6d 69 | 7a 65 20 23 5b 28 46 41 |A-optimi|ze #[(FA|
|00005750| 29 20 22 08 ab 83 c1 20 | 88 5c 6e 40 1b 1b 5c 6e |) ".... |.\n@..\n|
|00005760| 41 1c c5 1e 06 c5 c7 c8 | 0c 5c 22 42 43 1e 09 ca |A.......|.\"BC...|
|00005770| cb 8d ac 7b 08 ab 87 cc | cd ce 0c 5c 22 21 88 08 |...{....|...\"!..|
|00005780| ab 88 cc cd cf 1b 0e 09 | 5c 22 21 88 d0 89 1b 0e |........|\"!.....|
|00005790| 09 1e 11 1e 12 1e 13 1b | 0e 09 89 1e 14 ab 9d d5 |........|........|
|000057a0| 0b 1b 0e 14 40 41 5c 22 | ab 8c 1b 0e 14 40 40 16 |....@A\"|.....@@.|
|000057b0| 12 d0 89 16 14 aa 69 1b | 0e 14 41 89 16 14 ac 63 |......i.|..A....c|
|000057c0| 29 1b 0e 11 ab d2 1b 0e | 11 40 89 1e 16 40 1e 17 |).......|.@...@..|
|000057d0| 1b 0e 16 41 40 1e 18 d9 | 1b 0e 18 0c 5c 22 41 1e |...A@...|....\"A.|
|000057e0| 1a 1b 0e 17 d0 1e 1b 1b | 1b 0e 1a ab a0 1b 0e 1a |........|........|
|000057f0| 40 40 1b 0e 1a 40 41 1e | 1c 89 1e 1d de 1b 0e 1c |@@...@A.|........|
|00005800| 21 42 1b 0e 1b 1b 42 16 | 1b 1b 2a 1b 0e 1a 41 89 |!B....B.|..*...A.|
|00005810| 16 1a ac 60 1b 0e 1b 1b | 9f 29 42 1b 0e 13 42 16 |...`....|.)B...B.|
|00005820| 13 1b 0e 11 41 16 11 2c | aa 2a 1b 0e 12 1b 0e 13 |....A..,|.*......|
|00005830| 2e 07 42 87 22 20 5b 2a | 44 46 41 2d 6f 70 74 69 |..B." [*|DFA-opti|
|00005840| 6d 69 7a 65 2d 64 65 62 | 75 67 2a 20 74 65 72 70 |mize-deb|ug* terp|
|00005850| 72 69 20 46 41 20 73 74 | 61 72 74 20 74 61 62 6c |ri FA st|art tabl|
|00005860| 65 20 31 20 2a 44 46 41 | 2d 6f 70 74 69 6d 69 7a |e 1 *DFA|-optimiz|
|00005870| 65 2d 6e 6f 64 65 2a 20 | 6d 61 70 63 61 72 20 63 |e-node* |mapcar c|
|00005880| 61 72 20 2a 44 46 41 2d | 6f 70 74 69 6d 69 7a 65 |ar *DFA-|optimize|
|00005890| 2d 67 72 6f 75 70 73 2a | 20 44 46 41 2d 6f 70 74 |-groups*| DFA-opt|
|000058a0| 69 6d 69 7a 65 2d 63 68 | 61 6e 67 65 64 20 28 62 |imize-ch|anged (b|
|000058b0| 79 74 65 2d 63 6f 64 65 | 20 22 08 89 19 85 58 01 |yte-code| "....X.|
|000058c0| 5c 6e ab 87 c3 c4 c5 09 | 5c 22 21 88 09 40 89 1e |\n......|\"!..@..|
|000058d0| 06 40 1e 07 1b 0e 06 41 | 1e 08 c9 1e 5c 6e 1b 0e |.@.....A|....\n..|
|000058e0| 08 1e 0b 5c 6e ab 8a c3 | c4 cc 1b 0e 07 1b 0e 0b |...\n...|........|
|000058f0| 23 21 88 1b 0e 0b 83 4f | 01 1b 0e 0b 40 1e 0d ce |#!.....O|....@...|
|00005900| 1b 0e 0d 1b 0e 1b 0f 5c | 22 41 1e 10 5c 6e ab 88 |.......\|"A..\n..|
|00005910| c3 c4 d1 1b 0e 0d 5c 22 | 21 88 1b 0e 0b 41 89 1e |......\"|!....A..|
|00005920| 12 83 05 01 1b 0e 0d 1b | 0e 12 40 61 84 fc 00 1b |........|..@a....|
|00005930| 0e 12 40 1e 13 ce 1b 0e | 13 1b 0e 1b 0f 5c 22 41 |..@.....|.....\"A|
|00005940| 1e 14 1b 0e 10 1e 10 5c | 6e ab 88 c3 c4 d5 1b 0e |.......\|n.......|
|00005950| 13 5c 22 21 88 1b 0e 14 | ab d5 1b 0e 10 ab d1 1b |.\"!....|........|
|00005960| 0e 14 40 40 1b 0e 10 40 | 40 6b ab c6 d6 1b 0e 14 |..@@...@|@k......|
|00005970| 40 41 21 d6 1b 0e 10 40 | 41 21 6b ab b7 5c 6e ab |@A!....@|A!k..\n.|
|00005980| a8 c3 c4 d7 1b 0e 10 40 | 40 1b 0e 10 40 41 d6 1b |.......@|@...@A..|
|00005990| 0e 10 40 41 21 24 21 88 | c3 c4 d8 1b 0e 14 40 40 |..@A!$!.|......@@|
|000059a0| 1b 0e 14 40 41 d6 1b 0e | 14 40 41 21 24 21 88 1b |...@A...|.@A!$!..|
|000059b0| 0e 14 41 16 14 1b 0e 10 | 41 16 10 aa 27 1b 0e 14 |..A.....|A...'...|
|000059c0| ac 84 1b 0e 10 ab 9c 1b | 0e 13 1b 0e 5c 6e 42 16 |........|....\nB.|
|000059d0| 5c 6e d9 1b 0e 13 1b 0e | 08 5c 22 16 08 5c 6e ab |\n......|.\"..\n.|
|000059e0| 8a c3 c4 da 1b 0e 08 1b | 0e 5c 6e 23 21 88 2b 1b |........|.\n#!.+.|
|000059f0| 0e 12 41 89 16 12 84 58 | 00 2b 1b 0e 5c 6e ab bc |..A....X|.+..\n..|
|00005a00| 5c 6e ab 88 c3 c4 db 1b | 0e 06 5c 22 21 88 1b 0e |\n......|..\"!...|
|00005a10| 06 1b 0e 08 a1 88 5c 6e | ab 88 c3 c4 dc 1b 0e 06 |......\n|........|
|00005a20| 5c 22 21 88 1b 0e 1d 54 | 16 1d 5c 6e ab 8b c3 c4 |\"!....T|..\n....|
|00005a30| de 1b 0e 1d 1b 0e 5c 6e | 42 5c 22 21 88 1b 0e 1d |......\n|B\"!....|
|00005a40| 1b 0e 5c 6e 42 08 42 10 | df e0 e1 5c 22 88 1b 0e |..\nB.B.|...\"...|
|00005a50| 0b 41 89 16 0b 84 36 00 | 2d 09 41 89 11 84 06 00 |.A....6.|-.A.....|
|00005a60| c9 29 87 22 20 5b 2a 44 | 46 41 2d 6f 70 74 69 6d |.)." [*D|FA-optim|
|00005a70| 69 7a 65 2d 67 72 6f 75 | 70 73 2a 20 67 72 6f 75 |ize-grou|ps* grou|
|00005a80| 70 73 20 2a 44 46 41 2d | 6f 70 74 69 6d 69 7a 65 |ps *DFA-|optimize|
|00005a90| 2d 64 65 62 75 67 2a 20 | 70 72 69 6e 63 20 66 6f |-debug* |princ fo|
|00005aa0| 72 6d 61 74 20 22 5c 6e | 47 72 6f 75 70 73 20 74 |rmat "\n|Groups t|
|00005ab0| 6f 20 62 65 20 63 68 65 | 63 6b 65 64 3a 20 25 73 |o be che|cked: %s|
|00005ac0| 5c 6e 22 20 53 67 72 6f | 75 70 20 53 67 72 6f 75 |\n" Sgro|up Sgrou|
|00005ad0| 70 2d 6e 75 6d 62 65 72 | 20 6f 6c 64 67 72 6f 75 |p-number| oldgrou|
|00005ae0| 70 20 6e 69 6c 20 6e 65 | 77 67 72 6f 75 70 20 53 |p nil ne|wgroup S|
|00005af0| 6d 65 6d 62 65 72 73 20 | 22 20 53 67 72 6f 75 70 |members |" Sgroup|
|00005b00| 2d 6e 75 6d 62 65 72 3a | 20 25 73 20 3d 20 25 73 |-number:| %s = %s|
|00005b10| 5c 6e 22 20 53 6e 75 6d | 62 65 72 20 61 73 73 6f |\n" Snum|ber asso|
|00005b20| 63 20 74 61 62 6c 65 20 | 53 61 6c 69 73 74 20 22 |c table |Salist "|
|00005b30| 20 20 53 6e 75 6d 62 65 | 72 3a 20 25 73 5c 6e 22 | Snumbe|r: %s\n"|
|00005b40| 20 54 6d 65 6d 62 65 72 | 73 20 54 6e 75 6d 62 65 | Tmember|s Tnumbe|
|00005b50| 72 20 54 61 6c 69 73 74 | 20 22 20 20 20 54 6e 75 |r Talist| " Tnu|
|00005b60| 6d 62 65 72 3a 20 25 73 | 5c 6e 22 20 44 46 41 2d |mber: %s|\n" DFA-|
|00005b70| 6f 70 74 69 6d 69 7a 65 | 2d 67 72 6f 75 70 2d 6e |optimize|-group-n|
|00005b80| 75 6d 62 65 72 20 22 20 | 20 20 53 6b 65 79 3a 20 |umber " | Skey: |
|00005b90| 25 73 20 2d 3e 20 25 73 | 28 25 73 29 5c 6e 22 20 |%s -> %s|(%s)\n" |
|00005ba0| 22 20 20 20 54 6b 65 79 | 3a 20 25 73 20 2d 3e 20 |" Tkey|: %s -> |
|00005bb0| 25 73 28 25 73 29 5c 6e | 22 20 54 52 45 58 2d 64 |%s(%s)\n|" TREX-d|
|00005bc0| 65 6c 65 74 65 20 22 20 | 20 20 20 20 6f 6c 64 47 |elete " | oldG|
|00005bd0| 72 6f 75 70 20 3a 20 25 | 73 5c 6e 20 20 20 20 20 |roup : %|s\n |
|00005be0| 6e 65 77 47 72 6f 75 70 | 20 3a 20 25 73 5c 6e 22 |newGroup| : %s\n"|
|00005bf0| 20 22 43 68 61 6e 67 65 | 64 20 3a 25 73 20 2d 2d | "Change|d :%s --|
|00005c00| 3e 20 22 20 22 25 73 22 | 20 2a 44 46 41 2d 6f 70 |> " "%s"| *DFA-op|
|00005c10| 74 69 6d 69 7a 65 2d 6e | 6f 64 65 2a 20 22 2b 25 |timize-n|ode* "+%|
|00005c20| 73 5c 6e 22 20 74 68 72 | 6f 77 20 44 46 41 2d 6f |s\n" thr|ow DFA-o|
|00005c30| 70 74 69 6d 69 7a 65 2d | 63 68 61 6e 67 65 64 20 |ptimize-|changed |
|00005c40| 74 5d 20 38 29 20 70 72 | 69 6e 63 20 66 6f 72 6d |t] 8) pr|inc form|
|00005c50| 61 74 20 22 74 61 62 6c | 65 3a 20 25 73 5c 6e 22 |at "tabl|e: %s\n"|
|00005c60| 20 22 67 72 6f 75 70 73 | 3a 20 25 73 5c 6e 22 20 | "groups|: %s\n" |
|00005c70| 6e 69 6c 20 67 72 6f 75 | 70 73 20 6e 65 77 73 74 |nil grou|ps newst|
|00005c80| 61 72 74 20 6e 65 77 74 | 61 62 6c 65 20 6c 20 54 |art newt|able l T|
|00005c90| 52 45 58 2d 6d 65 6d 65 | 71 75 61 6c 20 67 72 6f |REX-meme|qual gro|
|00005ca0| 75 70 20 67 72 6f 75 70 | 2d 6e 75 6d 62 65 72 20 |up group|-number |
|00005cb0| 6d 65 6d 62 65 72 2d 6e | 75 6d 62 65 72 20 61 73 |member-n|umber as|
|00005cc0| 73 6f 63 20 6d 65 6d 62 | 65 72 2d 61 6c 69 73 74 |soc memb|er-alist|
|00005cd0| 20 67 72 6f 75 70 2d 61 | 6c 69 73 74 20 4d 6e 65 | group-a|list Mne|
|00005ce0| 78 74 20 4d 6b 65 79 20 | 44 46 41 2d 6f 70 74 69 |xt Mkey |DFA-opti|
|00005cf0| 6d 69 7a 65 2d 67 72 6f | 75 70 2d 6e 75 6d 62 65 |mize-gro|up-numbe|
|00005d00| 72 5d 20 35 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |r] 5]).(|defalias|
|00005d10| 20 27 44 46 41 2d 6f 70 | 74 69 6d 69 7a 65 2d 67 | 'DFA-op|timize-g|
|00005d20| 72 6f 75 70 2d 6e 75 6d | 62 65 72 20 23 5b 28 6e |roup-num|ber #[(n|
|00005d30| 6f 64 65 29 20 22 08 c1 | 1a 89 1b 1b ab 97 c4 0d |ode) "..|........|
|00005d40| 0b 40 41 5c 22 ab 89 0b | 40 40 12 c1 89 13 aa 6d |.@A\"...|@@.....m|
|00005d50| 0b 41 89 13 ac 69 5c 6e | 2a 87 22 20 5b 2a 44 46 |.A...i\n|*." [*DF|
|00005d60| 41 2d 6f 70 74 69 6d 69 | 7a 65 2d 67 72 6f 75 70 |A-optimi|ze-group|
|00005d70| 73 2a 20 6e 69 6c 20 72 | 65 73 75 6c 74 20 6c 20 |s* nil r|esult l |
|00005d80| 54 52 45 58 2d 6d 65 6d | 65 71 75 61 6c 20 6e 6f |TREX-mem|equal no|
|00005d90| 64 65 5d 20 34 5d 29 0a | 28 64 65 66 61 6c 69 61 |de] 4]).|(defalia|
|00005da0| 73 20 27 44 46 41 2d 6f | 70 74 69 6d 69 7a 65 2d |s 'DFA-o|ptimize-|
|00005db0| 70 61 72 61 6c 6c 65 6c | 20 23 5b 28 46 41 29 20 |parallel| #[(FA) |
|00005dc0| 22 08 ab 83 c1 20 88 5c | 6e 40 1b 1b 5c 6e 41 1c |".... .\|n@..\nA.|
|00005dd0| c5 1e 06 c5 c7 c8 0c 5c | 22 42 43 1e 09 ca cb 8d |.......\|"BC.....|
|00005de0| ac 7b 08 ab 87 cc cd ce | 0c 5c 22 21 88 08 ab 88 |.{......|.\"!....|
|00005df0| cc cd cf 1b 0e 09 5c 22 | 21 88 d0 89 1b 0e 09 1e |......\"|!.......|
|00005e00| 11 1e 12 1e 13 1b 0e 09 | 89 1e 14 ab 9d d5 0b 1b |........|........|
|00005e10| 0e 14 40 41 5c 22 ab 8c | 1b 0e 14 40 40 16 12 d0 |..@A\"..|...@@...|
|00005e20| 89 16 14 aa 69 1b 0e 14 | 41 89 16 14 ac 63 29 1b |....i...|A....c).|
|00005e30| 0e 11 ab e3 1b 0e 11 40 | 89 1e 16 40 1e 17 1b 0e |.......@|...@....|
|00005e40| 16 41 40 1e 18 d9 1b 0e | 18 0c 5c 22 41 1e 1a 1b |.A@.....|..\"A...|
|00005e50| 0e 17 d0 1e 1b 1b 1b 0e | 1a ab b2 1b 0e 1a 40 40 |........|......@@|
|00005e60| 1b 0e 1a 40 41 1e 1c 89 | 1e 1d 1b 0e 1c 3a ab 8d |...@A...|.....:..|
|00005e70| de 1b 0e 1c 40 21 de 1b | 0e 1c 41 21 42 aa 84 de |....@!..|..A!B...|
|00005e80| 1b 0e 1c 21 42 1b 0e 1b | 1b 42 16 1b 1b 2a 1b 0e |...!B...|.B...*..|
|00005e90| 1a 41 89 16 1a ac 4e 1b | 0e 1b 1b 29 42 1b 0e 13 |.A....N.|...)B...|
|00005ea0| 42 16 13 1b 0e 11 41 16 | 11 2c aa 19 1b 0e 12 1b |B.....A.|.,......|
|00005eb0| 0e 13 2e 07 42 87 22 20 | 5b 2a 44 46 41 2d 6f 70 |....B." |[*DFA-op|
|00005ec0| 74 69 6d 69 7a 65 2d 64 | 65 62 75 67 2a 20 74 65 |timize-d|ebug* te|
|00005ed0| 72 70 72 69 20 46 41 20 | 73 74 61 72 74 20 74 61 |rpri FA |start ta|
|00005ee0| 62 6c 65 20 31 20 2a 44 | 46 41 2d 6f 70 74 69 6d |ble 1 *D|FA-optim|
|00005ef0| 69 7a 65 2d 6e 6f 64 65 | 2a 20 6d 61 70 63 61 72 |ize-node|* mapcar|
|00005f00| 20 63 61 72 20 2a 44 46 | 41 2d 6f 70 74 69 6d 69 | car *DF|A-optimi|
|00005f10| 7a 65 2d 67 72 6f 75 70 | 73 2a 20 44 46 41 2d 6f |ze-group|s* DFA-o|
|00005f20| 70 74 69 6d 69 7a 65 2d | 63 68 61 6e 67 65 64 20 |ptimize-|changed |
|00005f30| 28 62 79 74 65 2d 63 6f | 64 65 20 22 08 89 19 85 |(byte-co|de "....|
|00005f40| 55 01 5c 6e ab 87 c3 c4 | c5 09 5c 22 21 88 09 40 |U.\n....|..\"!..@|
|00005f50| 89 1e 06 40 1e 07 1b 0e | 06 41 1e 08 c9 1e 5c 6e |...@....|.A....\n|
|00005f60| 1b 0e 08 1e 0b 5c 6e ab | 8a c3 c4 cc 1b 0e 07 1b |.....\n.|........|
|00005f70| 0e 0b 23 21 88 1b 0e 0b | 83 4c 01 1b 0e 0b 40 1e |..#!....|.L....@.|
|00005f80| 0d ce 1b 0e 0d 1b 0e 1b | 0f 5c 22 41 1e 10 5c 6e |........|.\"A..\n|
|00005f90| ab 88 c3 c4 d1 1b 0e 0d | 5c 22 21 88 1b 0e 10 83 |........|\"!.....|
|00005fa0| 42 01 1b 0e 10 40 89 1e | 12 40 1e 13 1b 0e 12 41 |B....@..|.@.....A|
|00005fb0| 1e 14 d5 1b 0e 14 21 1e | 16 1b 0e 08 1e 17 5c 6e |......!.|......\n|
|00005fc0| ab 8c c3 c4 d8 1b 0e 13 | 1b 0e 16 1b 0e 14 24 21 |........|......$!|
|00005fd0| 88 1b 0e 17 ab f9 1b 0e | 0d 1b 0e 17 40 61 ac e9 |........|....@a..|
|00005fe0| 1b 0e 17 40 1e 19 ce 1b | 0e 13 ce 1b 0e 19 1b 0e |...@....|........|
|00005ff0| 1b 0f 5c 22 41 5c 22 89 | 1e 1a 41 1e 1b 1b d5 1b |..\"A\".|..A.....|
|00006000| 0e 1a 41 21 1e 1c 5c 6e | ab 93 c3 c4 dd 1b 0e 19 |..A!..\n|........|
|00006010| 1b 0e 1a 40 d5 1b 0e 1a | 41 21 1b 0e 1a 41 25 21 |...@....|A!...A%!|
|00006020| 88 1b 0e 12 de 6b ab 86 | 1b 0e 1a df 6b ac a9 1b |.....k..|....k...|
|00006030| 0e 13 ab 87 1b 0e 16 1b | 0e 1c 6b ac 9e 1b 0e 19 |........|..k.....|
|00006040| 1b 0e 5c 6e 42 16 5c 6e | e0 1b 0e 19 1b 0e 08 5c |..\nB.\n|.......\|
|00006050| 22 16 08 5c 6e ab 8c c3 | c4 89 e1 1b 0e 08 1b 0e |"..\n...|........|
|00006060| 5c 6e 23 21 21 88 2c 1b | 0e 17 41 89 16 17 ac 07 |\n#!!.,.|..A.....|
|00006070| 1b 0e 5c 6e ab bc 5c 6e | ab 88 c3 c4 e2 1b 0e 06 |..\n..\n|........|
|00006080| 5c 22 21 88 1b 0e 06 1b | 0e 08 a1 88 5c 6e ab 88 |\"!.....|....\n..|
|00006090| c3 c4 e3 1b 0e 06 5c 22 | 21 88 1b 0e 24 54 16 24 |......\"|!...$T.$|
|000060a0| 5c 6e ab 8b c3 c4 e5 1b | 0e 24 1b 0e 5c 6e 42 5c |\n......|.$..\nB\|
|000060b0| 22 21 88 1b 0e 24 1b 0e | 5c 6e 42 08 42 10 e6 e7 |"!...$..|\nB.B...|
|000060c0| e8 5c 22 88 2d 1b 0e 10 | 41 89 16 10 84 54 00 2a |.\".-...|A....T.*|
|000060d0| 1b 0e 0b 41 89 16 0b 84 | 36 00 2d 09 41 89 11 84 |...A....|6.-.A...|
|000060e0| 06 00 c9 29 87 22 20 5b | 2a 44 46 41 2d 6f 70 74 |...)." [|*DFA-opt|
|000060f0| 69 6d 69 7a 65 2d 67 72 | 6f 75 70 73 2a 20 67 72 |imize-gr|oups* gr|
|00006100| 6f 75 70 73 20 2a 44 46 | 41 2d 6f 70 74 69 6d 69 |oups *DF|A-optimi|
|00006110| 7a 65 2d 64 65 62 75 67 | 2a 20 70 72 69 6e 63 20 |ze-debug|* princ |
|00006120| 66 6f 72 6d 61 74 20 22 | 5c 6e 47 72 6f 75 70 73 |format "|\nGroups|
|00006130| 20 74 6f 20 62 65 20 63 | 68 65 63 6b 65 64 3a 20 | to be c|hecked: |
|00006140| 25 73 5c 6e 22 20 53 67 | 72 6f 75 70 20 53 67 72 |%s\n" Sg|roup Sgr|
|00006150| 6f 75 70 2d 6e 75 6d 62 | 65 72 20 6f 6c 64 67 72 |oup-numb|er oldgr|
|00006160| 6f 75 70 20 6e 69 6c 20 | 6e 65 77 67 72 6f 75 70 |oup nil |newgroup|
|00006170| 20 53 6d 65 6d 62 65 72 | 73 20 22 20 53 67 72 6f | Smember|s " Sgro|
|00006180| 75 70 2d 6e 75 6d 62 65 | 72 3a 20 25 73 20 3d 20 |up-numbe|r: %s = |
|00006190| 25 73 5c 6e 22 20 53 6e | 75 6d 62 65 72 20 61 73 |%s\n" Sn|umber as|
|000061a0| 73 6f 63 20 74 61 62 6c | 65 20 53 61 6c 69 73 74 |soc tabl|e Salist|
|000061b0| 20 22 20 20 53 6e 75 6d | 62 65 72 3a 20 25 73 5c | " Snum|ber: %s\|
|000061c0| 6e 22 20 53 70 61 69 72 | 20 53 6b 65 79 20 53 6e |n" Spair| Skey Sn|
|000061d0| 65 78 74 20 44 46 41 2d | 6f 70 74 69 6d 69 7a 65 |ext DFA-|optimize|
|000061e0| 2d 67 72 6f 75 70 2d 6e | 75 6d 62 65 72 20 53 6e |-group-n|umber Sn|
|000061f0| 65 78 74 2d 67 72 6f 75 | 70 20 54 6d 65 6d 62 65 |ext-grou|p Tmembe|
|00006200| 72 73 20 22 20 20 20 53 | 6b 65 79 3a 20 25 73 20 |rs " S|key: %s |
|00006210| 2d 3e 20 25 73 28 25 73 | 29 5c 6e 22 20 54 6e 75 |-> %s(%s|)\n" Tnu|
|00006220| 6d 62 65 72 20 54 70 61 | 69 72 20 54 6e 65 78 74 |mber Tpa|ir Tnext|
|00006230| 20 54 6e 65 78 74 2d 67 | 72 6f 75 70 20 22 20 20 | Tnext-g|roup " |
|00006240| 20 20 54 6e 75 6d 62 65 | 72 3a 20 25 73 20 3a 20 | Tnumbe|r: %s : |
|00006250| 20 25 73 20 2d 3e 20 25 | 73 28 25 73 29 5c 6e 22 | %s -> %|s(%s)\n"|
|00006260| 20 28 6e 69 6c 29 20 28 | 6e 69 6c 29 20 54 52 45 | (nil) (|nil) TRE|
|00006270| 58 2d 64 65 6c 65 74 65 | 20 22 20 20 20 20 20 6f |X-delete| " o|
|00006280| 6c 64 47 72 6f 75 70 20 | 3a 20 25 73 5c 6e 20 20 |ldGroup |: %s\n |
|00006290| 20 20 20 6e 65 77 47 72 | 6f 75 70 20 3a 20 25 73 | newGr|oup : %s|
|000062a0| 5c 6e 22 20 22 43 68 61 | 6e 67 65 64 20 3a 25 73 |\n" "Cha|nged :%s|
|000062b0| 20 2d 2d 3e 20 22 20 22 | 25 73 22 20 2a 44 46 41 | --> " "|%s" *DFA|
|000062c0| 2d 6f 70 74 69 6d 69 7a | 65 2d 6e 6f 64 65 2a 20 |-optimiz|e-node* |
|000062d0| 22 2b 25 73 5c 6e 22 20 | 74 68 72 6f 77 20 44 46 |"+%s\n" |throw DF|
|000062e0| 41 2d 6f 70 74 69 6d 69 | 7a 65 2d 63 68 61 6e 67 |A-optimi|ze-chang|
|000062f0| 65 64 20 74 5d 20 38 29 | 20 70 72 69 6e 63 20 66 |ed t] 8)| princ f|
|00006300| 6f 72 6d 61 74 20 22 74 | 61 62 6c 65 3a 20 25 73 |ormat "t|able: %s|
|00006310| 5c 6e 22 20 22 67 72 6f | 75 70 73 3a 20 25 73 5c |\n" "gro|ups: %s\|
|00006320| 6e 22 20 6e 69 6c 20 67 | 72 6f 75 70 73 20 6e 65 |n" nil g|roups ne|
|00006330| 77 73 74 61 72 74 20 6e | 65 77 74 61 62 6c 65 20 |wstart n|ewtable |
|00006340| 6c 20 54 52 45 58 2d 6d | 65 6d 65 71 75 61 6c 20 |l TREX-m|emequal |
|00006350| 67 72 6f 75 70 20 67 72 | 6f 75 70 2d 6e 75 6d 62 |group gr|oup-numb|
|00006360| 65 72 20 6d 65 6d 62 65 | 72 2d 6e 75 6d 62 65 72 |er membe|r-number|
|00006370| 20 61 73 73 6f 63 20 6d | 65 6d 62 65 72 2d 61 6c | assoc m|ember-al|
|00006380| 69 73 74 20 67 72 6f 75 | 70 2d 61 6c 69 73 74 20 |ist grou|p-alist |
|00006390| 4d 6e 65 78 74 20 4d 6b | 65 79 20 44 46 41 2d 6f |Mnext Mk|ey DFA-o|
|000063a0| 70 74 69 6d 69 7a 65 2d | 67 72 6f 75 70 2d 6e 75 |ptimize-|group-nu|
|000063b0| 6d 62 65 72 5d 20 36 5d | 29 0a 28 64 65 66 61 6c |mber] 6]|).(defal|
|000063c0| 69 61 73 20 27 4e 45 46 | 41 2d 6d 61 6b 65 20 23 |ias 'NEF|A-make #|
|000063d0| 5b 28 45 46 46 41 29 20 | 22 08 40 19 08 41 1a c3 |[(EFFA) |".@..A..|
|000063e0| 09 5c 6e 5c 22 41 89 1c | c5 6b ab 83 c6 aa f5 c3 |.\n\"A..|.k......|
|000063f0| c6 0c 5c 22 ab ee 0c ab | 8d 09 0c 40 41 6b ac 86 |..\"....|...@Ak..|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
